Transcribir macro de VB Excel a Calc

preguntado 2018-08-24 18:10:21 +0200

Imagen Gravatar de René Leyva

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.

edit re-etiquetar marcar como ofensivo cerrar fusionar delete