Las palabras se asocian normalmente con un procesador de textos, como Microsoft Word. Sin embargo, muchas personas también trabajan con palabras en su programa de hoja de cálculo. (Una vez tuve un compañero de trabajo que usaba Excel para escribir notas todo el tiempo). Puede haber ocasiones en las que desee contar la cantidad de palabras en una hoja de trabajo que recibe de alguien. Existen capacidades nativas para realizar esta tarea en Word, pero no en Excel.

Una solución, por supuesto, es cargar su libro de trabajo en Word, realizar el conteo de palabras allí y luego cerrar el archivo. Sin embargo, esto no es tan flexible como crear una macro para contar palabras dentro de Excel. La siguiente macro, CountWords, cuenta la cantidad de palabras en cualquier rango que seleccione en una hoja de trabajo:

Sub CountWords()

Dim MyRange As Range     Dim CellCount As Long     Dim TotalWords As Long     Dim NumWords As Integer     Dim Raw As String

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

TotalWords = 0     For CellCount = 1 To MyRange.Cells.Count         If Not MyRange.Cells(CellCount).HasFormula Then             Raw = MyRange.Cells(CellCount).Value             Raw = Trim(Raw)

If Len(Raw) > 0 Then                 NumWords = 1             Else                 NumWords = 0             End If             While InStr(Raw, " ") > 0                 Raw = Mid(Raw, InStr(Raw, " "))

Raw = Trim(Raw)

NumWords = NumWords + 1             Wend             TotalWords = TotalWords + NumWords         End If     Next CellCount     MsgBox "There are " & TotalWords & " words in the selection."

End Sub

Observe que la macro recorre cada celda del rango que seleccione.

Luego ignora cualquier celda que contenga una fórmula. En todas las demás celdas, esencialmente cuenta el número de espacios en la celda. (Se supone que uno o más espacios separan palabras). El recuento de palabras se muestra en un cuadro de mensaje para su edificación.

La macro es bastante rápida en rangos relativamente pequeños. Si elige un rango grande (como la hoja de trabajo completa), entonces la macro puede tomar mucho tiempo para terminar su trabajo. El objetivo de esto es asegurarse de seleccionar solo el rango real que desea analizar antes de invocar la macro.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2105) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

enlace: / excelribbon-Counting_Words [Contando palabras].