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

 

 

 

 

 

 

 

 

 

 

 

 

En caso de que puedas utilizar fórmulas, aquí te dejo cinco métodos para extraer el valor que más se repite de un rango.

https://ayudaexcel.com/metodos-hallar-textos-repetidos-rango/

 

 

Suponiendo que los nombres los tienes en la columna A..

bucar.xlsm

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

 

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

 

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

 

hace 6 minutos , pinoji dijo:

en cuanto a usted pecador JSD

???? Menos mal que soy ateo

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

No te preocupes es broma