Columnas

Marleny :
Te paso una macro que realiza el calculo. Pero no dejes de probar (y de jugar con) las Tablas Dinámicas. Son (una vez acostumbrada a ellas) fáciles y excelentes. Es más sencillo usarlas que leer sobre ellas.
Para ingresar la rutina :
Desde excel (tu planilla), tipeá ALT+F11 para ingresar al Visual Basic.
Insertá un modulo (Insertar/Modulo) y allí copiá el siguiente procedimiento (subrutina MaximoenColumna).
'*************************
Sub MaximoenColumna()
Dim x As Long, y As Long
Dim txt As String, resp As String
Dim vector1(), vector2()
Dim TV As Long '** tamaño del vector
Dim MasElem As Long
Dim UEV As Long '** ultimo elemento del vector
Dim ValorCelda, cargado
'*** supongo 100 datos
TV = 5
MasElem = TV
ReDim vector1(1 To TV)
ReDim vector2(1 To TV)
UEV = 0
'*** supongo que la celda A1 pertenece al rango a analizar
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Name = "MiRango"
'*** cargo en TXT todas las opciones de columnas
txt = "Ingrese el Número correspondiente a la columna o 0" _
& Chr(10) & Chr(10) & "0 - salir"
For x = 1 To Range("MiRango").Columns.Count
txt = txt & Chr(10) & Format$(x, "#0") & " - " & Range("mirango").Cells(1, x).Value
Next
'*** pregunto a usuario la columna a abalizar
Do
resp = InputBox(txt, "Seleccion de Columna a abalizar ", "0")
If IsNumeric(resp) Then
x = Val(resp)
If x = 0 Then '**salir
End
End If
If x >= 1 And x <= Range("MiRango").Columns.Count Then
Exit Do
End If
End If
Loop
'*** x tiene el numero de columna a analizar
'*** del rango (Matriz MiRango) selecciono solo la columna elegida
Range("Mirango").Offset(1, x - 1).Resize(Range("MiRango").Rows.Count - 1, 1).Select
For x = 1 To Selection.Rows.Count
ValorCelda = Selection.Cells(x, 1).Value
If x = 1 Then
vector1(x) = ValorCelda
vector2(x) = 1
UEV = 1
Else
cargado = 0
For y = 1 To UEV '** veo si se repite el dato
If vector1(y) = ValorCelda Then
vector2(y) = vector2(y) + 1
cargado = 1
Exit For
End If
Next
'*** cargo nuevo valor
'*** si llegue al final del vector lo agrando
If cargado = 0 Then
If UEV = TV Then
TV = TV + MasElem '** amplio el tamaño del vector
ReDim Preserve vector1(1 To TV)
ReDim Preserve vector2(1 To TV)
End If
UEV = UEV + 1
vector1(UEV) = ValorCelda
vector2(UEV) = 1
End If
End If
Next
txt = "El/Los elemento(s) : " & Chr(10) & Chr(10) & "[ "
cargado = 0
For x = 1 To UEV
Range("a1").Cells(x, Range("MiRango").Columns.Count + 2) = vector1(x)
Range("a1").Cells(x, Range("MiRango").Columns.Count + 3) = vector2(x)
If vector2(x) >= cargado Then
txt = txt & vector1(x) & " "
cargado = vector2(x)
End If
Next
txt = txt & "]" & Chr(10)
txt = txt & Chr(10) & "tiene(n) : " & cargado & " repeticiones"
MsgBox txt
End Sub
'*************************
Como ves no es tan simple. Pero para explicarla vamos por partes.
Primero se necesita saber que columna querés analizar. Y se pregunta mediante InputBox, tomadose la primer columna del rango como títulos de estas.
Después se selecciona la columna elegida y se cargan los valores en un vector (vector1), y la cantidad de repeticiones en otro (vector2) .
Finalmente se buscan los elementos con la mayor cantidad de repeticiones, recorriendo los vectores (vector1 -de leyendas- y vector2 -de cantidades-).
Y se muestran mediante MSGBOX.
Los resultados resultaron coincidentes con los de las tablas dinámicas.
Para ejecutar la macro, volver a Excel.
Ir a la Hoja donde residen los datos.
ALT+F8 (Herramientas/Macro/Macros...), para seleccionar la macro (MaximoenColumna) y el botón "Ejecutar".
IMPORTANTE: Se supone que la celda A1 pertenece al rango donde se encuentra la columna a analizar, si así no fuera hay que cambiar en :
Range("A1").Select
A1 por una celda correcta.
Espero que te sirva.
Si tenés alguna duda o querés alguna ampliación o explicación, no hay ningún problema, es un placer.
Desde Buenos Aires, Argentina, un abrazo.
Suerte.
Mi nombre es Federico.