¿Cómo utilizar VBA en Excel para contar la frecuencia de palabras de dos palabras consecutivas, tres palabras y cuatro palabras en contenido en inglés de varias líneas?

Le daré estadísticas de una sola palabra. Los métodos de estadística de dos palabras y de varias palabras son completamente diferentes. Supongo que esos signos de puntuación deberían tenerse en cuenta.

¿Sub? Comk1()

Rango("a2:b59999"). Borrar contenido

¿Atenuado? archivo lng? ¿Como? ¿Fijado largo

? ¿dic? =?CreateObject("Script.Dictionary")

Dim? Ah?brr,?Terminal Monitor Program (abreviatura de Terminal Monitor Program)

Dim? entero ? sFile ? Rng para ? [d65535] .

sFile?

sArchivo? =?Reemplazar(sArchivo,".",?espacio(1))

sArchivo? =?Reemplazar(sArchivo," ,",?espacio(1))

sFile?=?replace(sFile,"?",?space(1))

sFile?=?replace(sFile,vbCrLf ? Space(1))

tmp? =?Split(sFile, space(1))

¿Para mí? =?1?Detección de fallas por ultrasonidos

tmp(i)? )

¿Si? Len(tmp(i))? entonces

¿Si? tmp(i))? )? =?1

Otro

dic.tmp(1),?1

finalizar si

entonces

Resultado

[a1]. resize(dic.count)? =?función de hoja. dic.items ) ? = ?dic.keys ? = ?dic ¿Para qué? =?0?1

Si? p>Celda(j,1)?=?arr(一)

Celda(j,2)?=?brr(一)

fin?

entonces

¿establecer?=?nada

¿submarino?