Saltar al contenido

Texto más repetido en una columna.


Recommended Posts

Hola colegas, Buenos días, espero se encuentren bien de salud.

Hoy desde mi móvil.

Necesito con VBA extraer el nombre o cadena de texto que más se repite en una columna. No tengo archivo, solo es una consulta para un futuro proyecto.

Gracias mil a todos.

Saludos. 

Pino

 

 

 

 

 

 

 

 

 

 

 

 

Enlace a comentario
Compartir con otras webs

Para mostrar más de un nombre hay que modificar el código, es decir si hay dos o tres o ..... que se repiten el mismo número de veces y coincide que son los que más se repiten con este código te mostrará solamente uno, tu dirás si hay que modificarlo

 

Enlace a comentario
Compartir con otras webs

Private Sub CommandButton1_Click(): Application.ScreenUpdating = False

    With Hoja3
        For X = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
            .Range("B" & X) = WorksheetFunction.CountIf(.Range("A1", "A" & X), .Cells(X, 1))
        Next X
        mayor = Application.WorksheetFunction.Max(.Columns(2))

        Set c = .Range("B1:B" & .Cells(Rows.Count, 1).End(xlUp).Row).Find(mayor, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            Nombre = .Cells(c.Row, 1)
        End If
        Columns(2).Delete
        MsgBox "Nombre más repetido " & Nombre & " " & mayor & " veces"
    End With
    
End Sub

 

Enlace a comentario
Compartir con otras webs

Buenas tardes colegas.

Gracias mil al profesor Sergio y al profesor JSD.

El enlace que me dejó el profesor Sergio lo voy a revisar en la noche con más tiempo, en cuanto a usted pecador JSD, creo que está muy bien todo, si necesitaras más de un número iniciaré otro tema, pero creo que con esto resuelvo.

Gracias mil a ambos. Saludos al profesor Antoni, Abraham, Haplox, y los demás.

Excelente jornada para ustedes.

Un abrazo.

Pino

 

Enlace a comentario
Compartir con otras webs

Oh, disculpe usted, quise decir profesor, lo respeto sobremanera como para incurrir en semejante falta de respeto. Como dije estoy desde el móvil y mis dedos toscos contrastan con el diminuto teclado... En todo caso pecador Yo....jajajaja

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.