Texto más repetido en una columna.

[pinoji]

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

 

 

 

 

 

 

 

 

 

 

 

 

[Sergio]

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/

 

 

[JSDJSD]

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

bucar.xlsm

[JSDJSD]

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

 

[JSDJSD]

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

 

[pinoji]

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

 

[JSDJSD]

hace 6 minutos , pinoji dijo:

en cuanto a usted pecador JSD

???? Menos mal que soy ateo

[pinoji]

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

[JSDJSD]

No te preocupes es broma