Aplicar fórmula a conjunto de datos con distinto rango
Tengo una hoja de cálculo con dos columnas; en la primera me aparecen datos repetidos, aunque en distinta cantidad, y en la siguiente unas cifras referidas a esos. Algo así (es un ejemplo algo escaso)
Columna A Columna B
a 5
a 7
a 13
b 1
b 3
c 10
c 13
c 15
c 23
d 1
e 3
e 4
Quiero aplicar una fórmula, (cálculo del cuartil 3), a cada grupo de datos (cuartil de los datos "a", cuartil de los datos "b", etc) de forma que me de el resultado en la línea en la que cambia el dato de la columna A. Se trata de miles de filas y cada grupo de de datos tiene distinta amplitud.
1 Respuesta
H o l a:
Te anexo la macro, pon tus datos de la columna A y B como se muestra en la imagen, el resultado te lo pondrá en la columna C.
Sub CalcularCuartil3()
'Por.Dante Amor
ant = Cells(2, "A")
ini = 2
Range("C2:C" & Rows.Count).ClearContents
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row + 1
If ant <> Cells(i, "A") Then
quar = WorksheetFunction.Quartile(Range(Cells(ini, "B"), Cells(i - 1, "B")), 3)
Cells(i - 1, "C") = quar
ini = i
End If
ant = Cells(i, "A")
Next
MsgBox "Fin Calcular Cuartil"
End SubSigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: CalcularCuartil3
- Aceptar.
- Para ejecutarla dale click a la imagen.
