Muy buenas tardes.
Recientemente me he topado con una tabla de datos bastante complicada, pues en primer instancia tenía que hacer que eliminar filas que en sus calores se estuviesen triplicando, cuadruplicando y demás.
Esto lo resolví con eliminación de duplicados…
Así mismo después de ir avanzando me tope con el problema de que debía de insertar una fila entre los distintas filas, en pocas palabras, de tener algo así:
Fila1
Fila2
Fila3
Tenía que quedar:
Fila1
Fila2
Fila3
Así que me puse a investigar y lo máximo que encontré fue el hecho de que con Ctrl++ era posible hacer esas inserciones, sin embargo, son más de 1000 registros, es así que buscando, encontré una macro en Excel, la cual me funcionó en el mismo, sin embargo, aunque no conozco de macros (ni en excel, ni en LO) fue que lo copie, lo adapté y en Excel me dio el resultado que deseaba.
Pero como no quiero dejarlo aquí les comparto la macro para quien lo pueda traducir y adaptarlo a LO pueda hacerlo y nos lo comparta.
'Funcion adaptada
Sub insertar_fila()
'Ocultamos el procedimiento
Application.ScreenUpdating = False
'Seleccionamos la primera fila de la hoja 1
'(da igual el nombre que tenga la hoja)
Hoja1.Select
Range(“A1”).Select
'Definimos el número de filas que tenemos actualmente
For i = 1 To 824
'Bajamos una fila
ActiveCell.Offset(1, 0).Select
'Insertamos una fila
Selection.EntireRow.Insert
'Bajamos nuevamente una fila
ActiveCell.Offset(1, 0).Select
Next
'Mostramos el procedimiento
Application.ScreenUpdating = True
'Mostrar un mensaje
Mensaje = MsgBox("Trabajo hecho. Insertadas " & i - 1 & "filas. ", vbInformation, “Hecho”)
End Sub
Sin más por el momento me despido y muchas gracias.