Cómo usar Visual Basic para Aplicaciones para contar las apariciones de un carácter en una selección en Excel

  • Artículo
  • Se aplica a:
    Microsoft Office Excel 2007

Resumen

En Microsoft Excel, puede usar una macro para contar las apariciones de un carácter específico en una celda o rango de celdas. Este artículo contiene una macro de ejemplo para contar las apariciones de un carácter específico en una celda o rango de celdas.

También puede usar una fórmula para realizar la tarea. Si prefiere no usar una macro, haga clic en los números de artículo siguientes para ver los artículos de Microsoft Knowledge Base:

187667 Fórmulas para contar las repeticiones de texto, caracteres o palabras en Excel para Mac

Más información

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía, ya sea expresa o implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. Se considera que está familiarizado con el lenguaje de programación que se muestra y con las herramientas para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos adaptados a sus necesidades específicas.

Procedimiento de Visual Basic de ejemplo

El siguiente procedimiento de Visual Basic le pide un carácter (o caracteres) y, a continuación, busca en la celda seleccionada actualmente o en el rango de celdas y muestra un cuadro de mensaje que muestra el número total de repeticiones de ese carácter o cadena de caracteres. Esto funciona para todos los caracteres alfanuméricos.

Dim Count As Integer
Dim Target As String
Dim Cell As Object
Dim N As Integer

Sub Target_Count()
   Count = 0
   Target = InputBox("character(s) to find?")
   If Target = "" Then GoTo Done
      For Each Cell In Selection
         N = InStr(1, cell.Value, target)
         While N <> 0
            Count = count + 1
            N = InStr(n + 1, cell.Value, target)
         Wend
      Next Cell
   MsgBox count & " Occurrences of " & target
Done:
End Sub