Excel: Consolida las listas con datos

Si, por ejemplo, manejas cuentas de clientes en una hoja Excel, para cada cuenta tenes una lista, todas las listas tienen la misma estructura, pero no necesariamente la misma cantidad de filas y queres consolidar todas las filas en una única lista, aquí tenes la solución.
JUE, 29 / AGO / 2013

Existen varias formas de juntar todas las listas en una. Por ejemplo, se podría crear una macro que automatice el proceso de copiar y pegar. Sin embargo, una forma más sencilla sería copiar todas las listas en una nueva hoja y luego eliminar las filas de separación entre lista y lista con una macro. Las instrucciones para eliminar serían así:

If Cells(fila, “A”) = “” Then
       Rows(fila).EntireRow.Delete
Else
       fila = fila + 1
End If

Estas instrucciones deben estar dentro de un ciclo que recorra toda la lista. Si la fila visitada está vacía, la elimina. Si no, la deja y pasa a la fila siguiente. Para hacer el recorrido se puede usar un ciclo For… Next suficientemente amplio como para barrer todas las filas:

Sub Elimina()
fila = 1
For i = 1 To 1000
If Cells(fila, “A”) = “” Then
                Rows(fila).EntireRow.Delete
Else
                fila = fila +  1
End If
Next
End Sub

 

Esta macro recorre toda la hoja hasta la fila 1000 y elimina las filas sin datos.

Esta macro recorre toda la hoja hasta la fila 1000 y elimina las filas sin datos.

¡Comparte esta noticia!

Últimos lanzamientos Ver más