Duplicar Filas en Excel (Ayuda Please)
Buenas Tardes,
Primero me presento soy Groux, Registrado acá como Experto en Linux, y tengo un problemilla con Excel.
Necesito Duplicar Celdas, por ejemplo:
A
B
Quede como:
A
A
B
B
He encontrado una respuesta a mi solicitud aquí en este sitio, pero lamentablemente solo realiza la operación en la Fila o celda activa, y no en las seleccionadas que es lo que yo requiero.
Esto es lo que encontré aportado por Caranbis:
Sub duplicafiladeceldaactiva()
Application.ScreenUpdating = False
Rows(ActiveCell.Row).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Select
End Sub
¿En resumen es como lo hago para que no solo sea la Activa si no la o las seleccionadas?...
Desde ya Agradezco vuestra ayuda.
Saludos,
Primero me presento soy Groux, Registrado acá como Experto en Linux, y tengo un problemilla con Excel.
Necesito Duplicar Celdas, por ejemplo:
A
B
Quede como:
A
A
B
B
He encontrado una respuesta a mi solicitud aquí en este sitio, pero lamentablemente solo realiza la operación en la Fila o celda activa, y no en las seleccionadas que es lo que yo requiero.
Esto es lo que encontré aportado por Caranbis:
Sub duplicafiladeceldaactiva()
Application.ScreenUpdating = False
Rows(ActiveCell.Row).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Select
End Sub
¿En resumen es como lo hago para que no solo sea la Activa si no la o las seleccionadas?...
Desde ya Agradezco vuestra ayuda.
Saludos,
1 respuesta
Respuesta de Elsa Matilde
1
Te dejo una rutina explicada para que la puedas adaptar a lo que necesitas.
Toma cualquier rango seleccionado de la col A y repite esas filas.
La expresión EntireRow significa que insertará y copiará la fila completa, si solo necesitas que sea la celda quita la palabra de la instrucción
Pruébala y si todo queda resuelto no olvides finalizar la consulta.
PD) Ya se inició la promo 'fin de año' en manuales y aplicaciones. Te invito a visitar mi sitio...
Toma cualquier rango seleccionado de la col A y repite esas filas.
La expresión EntireRow significa que insertará y copiará la fila completa, si solo necesitas que sea la celda quita la palabra de la instrucción
Pruébala y si todo queda resuelto no olvides finalizar la consulta.
PD) Ya se inició la promo 'fin de año' en manuales y aplicaciones. Te invito a visitar mi sitio...
