Subtotales de una columna en Excel
Muy buenas expertos.
Mi pregunta es la siguiente:
Tengo una columna con un lista de nombres, repetidos y no repetidos. Lo que necesito saber es el total de veces que se repite cada uno de los nombres.
Ej:
Columna A (Números)
1
1
2
2
3
Respuesta que necesito:
1 Total 2
2 Total 2
3 Total 1
Hay alguna fórmula o aplicación en el Excel que me permita conocer este dato de una manera fácil y rápida.
Gracias por la ayuda.
Mi pregunta es la siguiente:
Tengo una columna con un lista de nombres, repetidos y no repetidos. Lo que necesito saber es el total de veces que se repite cada uno de los nombres.
Ej:
Columna A (Números)
1
1
2
2
3
Respuesta que necesito:
1 Total 2
2 Total 2
3 Total 1
Hay alguna fórmula o aplicación en el Excel que me permita conocer este dato de una manera fácil y rápida.
Gracias por la ayuda.
1 respuesta
Respuesta de mafeal
1
Lo que pretendes se puede resolver fácilmente mediante una macro:
Supone los datos en columna B (cabecera en fila 3 y los datos debajo sin importar el número de filas)
Escribirá la respuesta en la columna E a partir de la celda 4.
Esta es la macro:
Sub Agrupa()
Dim i, j As Long
Dim NumeroFilas As Long
Dim Dato As String
Dim Hubo As Boolean
'Primero calculamos el número de filas que tienen los datos
Range("B3").Select
While ActiveCell.Value <> ""
i = i + 1
ActiveCell.Offset(1, 0).Select
Wend
NumeroFilas = i - 1
'Ahora lo escribimos
For i = 1 To NumeroFilas
Dato = Cells(3 + i, 2)
Range("E4").Select
While ActiveCell.Value <> ""
'si lo encuentra que lo agrupe
If ActiveCell.Value = Dato Then
ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, 1) + 1
Hubo = 1
End If
ActiveCell.Offset(1, 0).Select
Wend
If Hubo = 0 Then
'si no lo encuentra que lo escriba
ActiveCell.Value = Dato
ActiveCell.Offset(0, 1) = 1
End If
Hubo = 0
Next i
Range("B3").Select
End Sub
Si tienes alguna duda dímela.
Supone los datos en columna B (cabecera en fila 3 y los datos debajo sin importar el número de filas)
Escribirá la respuesta en la columna E a partir de la celda 4.
Esta es la macro:
Sub Agrupa()
Dim i, j As Long
Dim NumeroFilas As Long
Dim Dato As String
Dim Hubo As Boolean
'Primero calculamos el número de filas que tienen los datos
Range("B3").Select
While ActiveCell.Value <> ""
i = i + 1
ActiveCell.Offset(1, 0).Select
Wend
NumeroFilas = i - 1
'Ahora lo escribimos
For i = 1 To NumeroFilas
Dato = Cells(3 + i, 2)
Range("E4").Select
While ActiveCell.Value <> ""
'si lo encuentra que lo agrupe
If ActiveCell.Value = Dato Then
ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, 1) + 1
Hubo = 1
End If
ActiveCell.Offset(1, 0).Select
Wend
If Hubo = 0 Then
'si no lo encuentra que lo escriba
ActiveCell.Value = Dato
ActiveCell.Offset(0, 1) = 1
End If
Hubo = 0
Next i
Range("B3").Select
End Sub
Si tienes alguna duda dímela.
