Macro VBA Excel: Ir a la última fila con datos por cada agrupación en columna A
Quiero acceder a la última celda con datos de una tabla y copiar la 1ª y 4ª columna en la Hoja2. Hasta ahí bien si es el final de toda la tabla, pero no encuentro el modo de ir a la última con datos por cada cambio de agrupación en la columna A, sería como en la foto (lo que está en amarillo). ¿Alguna sugerencia?
Muchísimas gracias de antemano.
Prueba el siguiente código, los resultados inician en la celda F1 y G1.
Lo que hace esta línea Set dic = CreateObject("Scripting.Dictionary"), es crear un índice.
Al recorrer la columna, en el índice solamente almacena el índice y un dato, es decir, en el índice, siguiendo con tu ejemplo, solamente almacena A, B, C y último dato del recorrido para cada letra.
Sub ultimos()
Dim dic As Object, i As Long
Set dic = CreateObject("Scripting.Dictionary")
For i = 1 To Range("A" & Rows.Count).End(3).Row
dic(Range("A" & i).Value) = Range("D" & i).Value
Next
Range("F1").Resize(dic.Count, 2).Value = Application.Transpose(Array(dic.keys, dic.items))
End Sub
Perfecto, Dante! Como siempre excelente la explicación
Hola, Dante,
Reabro tema para una consulta más sobre el código, si quisiera llevarme todo la fila y no sola la columna D?
No consigo adaptar el código en este punto para eso, muchas gracias!
dic(Range("A" & i).Value) = Range("D" & i).Value
¿Toda la fila?
O solamente las columnas A, B, C y D?
