Si tienes una columna Excel con datos y quieres saber cual es la palabra más repetida, no te vayas porque este es tu post. Además, vamos a calcular el número de veces que aparece cada palabra y a colorear los resultados usando un mapa de calor.
Para ello, he creado un listado de nombres masculinos que se repiten como el de la figura.
Os muestro el código asociado al botón y, a continuación, os lo explico.
Sub Repeticiones()
'Creamos un listado de valores no repetidos de la columna C en la columna E
Range("E:E").ClearContents
Range("C1:C500").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1"), Unique:=True
Range("E1:E500").Sort Key1:=Range("E:E"), Order1:=xlAscending, Header:=xlYes
'Limpiamos el contenido de la columna F
Range("F2:F65000").Select
Selection.ClearContents
'Calculamos el rango de los datos en la columna C y E
finalc = Cells(Rows.Count, 3).End(xlUp).Offset(0, 0).Row
finalh = Cells(Rows.Count, 5).End(xlUp).Offset(0, 0).Row
For i = 2 To finalh
'Contamos las veces que se repiten cada uno de los nombres en el rango seleccionado usando el comando CountIf
Nombres = Cells(i, 5).Value
Cells(i, 6).Value = Application.CountIf(Range("C1:C" & finalc), Nombres)
Next
End Sub
Las primeras líneas de código, crean un listado de valores no repetidos (columna E) usando la función AdvancedFilter.
A continuación, usando un bucle FOR, comprobamos cuántas veces se repite cada uno de esos valores únicos mediante la función CountIF (columna F).
Para mostrar el mapa de calor, he usado el formato condicional (columna F).
Espero que te sirva este ejemplo para encontrar la palabra más repetida en una columna de Excel. Descarga el archivo de ejemplo y practica.
Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.
Hasta la próxima.
Si te ha servido y quieres donar
Descarga el archivo del ejemplo
Últimas publicaciones
0 comentarios