Icono del sitio Desafiando Excel

Contar palabras de hoja activa en Excel (macro)

Contar palabras de hoja activa en Excel

¿Cómo podemos contar la cantidad de palabras que contiene una hoja generado por una macro en Excel?

La siguiente macro nos permite generar un mensaje que detalla la cantidad de palabras contenidas dentro de una hoja en Excel. Cuenta tanto palabras individuales de una celda como múltiples palabras dentro de una misma celda. Podemos asignarla a la ejecución de un botón o comando para de esta forma ejecutarla mucho más rápido, o bien desde la opción Macros del menú «Programador». Debemos copiar la siguiente instrucción dentro de un nuevo módulo en la ventana de Visual Basic:

 

CONTAR PALABRAS DE HOJA ACTIVA EN EXCEL

Sub ContarPalabrasHoja()
Dim WordCnt As Long
Dim rng As Range
Dim S As String
Dim N As Long
For Each rng In ActiveSheet.UsedRange.Cells
S = Application.WorksheetFunction.Trim(rng.Text)
N = 0
If S <> vbNullString Then
N = Len(S) - Len(Replace(S, " ", "")) + 1
End If
WordCnt = WordCnt + N
Next rng
MsgBox "La hoja activa tiene " _
& Format(WordCnt, "#,##0") & _
" palabras"
End Sub

 

Como podemos ver nombramos a la función «ContarPalabrasHoja». Si buscamos desde la opción Macros del menú «programador», podremos encontrarla con dicho nombre para poder ser ejecutada.

De esta forma podemos obtener la cantidad de palabras de una hoja en cuestión de segundos gracias a la macro generada.

 

Te recomiendo ver el siguiente link con más videos de Macros útiles de Excel AQUÍ.

¿No sabés como instalar esta macro? ¡No te preocupes!  Aquí está la solución:

Salvo aclaración, todas las fórmulas y macros de este sitio están configuradas para aplicarse sobre la celda A1. Algunas fórmulas se encuentran encerradas entre llaves {} debido a que son fórmulas matriciales. Estas llaves no deben introducirse tecleándolas, sino que se generan automáticamente al aceptar la fórmula pulsando Control+Shift+Enter al mismo tiempo. Las fórmulas de este sitio son compatibles con versiones de Microsoft Excel® 2010 o superiores. 

Salir de la versión móvil