Quiero duplicar las celdas de una misma columna
Tengo una lista de items, como por ejemplo esta:
- A1
- A2
- A3
- A4
- A5
- A6
Etc...
Y desearía insertar y copiar automáticamente una celda entre cada una de la anterior lista, de manera que obtuviese:
- A1
- A1
- A2
- A2
- A3
- A3
- A4
- A4
- A5
- A5
Etc...
Ni que decir tiene que la lista de muchísimos items, por eso me ahorraría bastante hacerlo de modo automático.
Muchísimas gracias por adelantado.
- A1
- A2
- A3
- A4
- A5
- A6
Etc...
Y desearía insertar y copiar automáticamente una celda entre cada una de la anterior lista, de manera que obtuviese:
- A1
- A1
- A2
- A2
- A3
- A3
- A4
- A4
- A5
- A5
Etc...
Ni que decir tiene que la lista de muchísimos items, por eso me ahorraría bastante hacerlo de modo automático.
Muchísimas gracias por adelantado.
1 respuesta
Respuesta de Elsa Matilde
1
Ingresá al Editor de macros, insertá un módulo y allí copiá esta rutina:
Sub Duplica()
'x Elsamatilde
'establece cuál será la última fila
finfila = Range("A65536").End(xlUp).Row * 2
For i = 2 To finfila Step 2
Range("A" & i).Select
Selection.Insert Shift:=xlDown
Range("A" & i - 1).Select
Selection.Copy
Range("A" & i).Select
ActiveSheet.Paste
Next i
Application.CutCopyMode = False
End Sub
Si todo quedó resuelto no olvides finalizar la consulta.
Sub Duplica()
'x Elsamatilde
'establece cuál será la última fila
finfila = Range("A65536").End(xlUp).Row * 2
For i = 2 To finfila Step 2
Range("A" & i).Select
Selection.Insert Shift:=xlDown
Range("A" & i - 1).Select
Selection.Copy
Range("A" & i).Select
ActiveSheet.Paste
Next i
Application.CutCopyMode = False
End Sub
Si todo quedó resuelto no olvides finalizar la consulta.
