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.
