Cortar y agregar 2 celdas en blanco entre los valores al pegar

necesito ayuda con excel


Supongamos que en la columna A1=1
A2=2
A3=3
A4=4
A5=5
y así sucesivamente hasta 100
ahora bien yo deseo cortar todos los Valores de la columna A y pegar todo en la columna B pero que al pegar quisiera agregara 2 celdas vacías entre cada valor.
Es posible lograr eso?
Les agradezco su ayuda amigos.

1 respuesta

Respuesta
1

Esta macro hace lo que necesitas:

Sub Copia_Pega()
Dim Comprobar, Contador, Fila
Comprobar = True: Contador = 0: Fila = 1 ' Inicializa variables.
Do ' Bucle externo.
Do While Contador < 65000 ' Bucle interno.
Contador = Contador + 1 ' Incrementa el contador.
If Range("A" & Contador).Value <> "" Then ' Si la condición es verdadera.
Range("B" & Fila).Value = Range("A" & Contador).Value
Fila = Fila + 3

No olvides finalizar la pregunta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas