Cómo usar una macro en Excel para copiar datos de a3 a b2, y luego realizar un bucle infinito hasta que los datos de la columna a estén vacíos, ¡y luego detener el bucle!

Presione Alt F11 para abrir el editor vb, luego seleccione "Insertar" - "Módulo", pegue el siguiente código y presione F5 para ejecutar.

Sub?CopyRng()

¿Dim?OriRng?As?Range

Dim?DesRng?As?Range

¿Establecer OriRng? =?Rango("A3")

Establecer?DesRng?=?Rango("B2")

Establecer?DesRng?=?Rango("B3")

¿Establecer?DesRng?

¿Hacer?Hasta?Está vacío(OriRng)

OriRng.Copy?DesRng

Establecer?OriRng?=?OriRng.Offset ("2,?0"

Establecer?DesRng?=?DesRng. 2,?0)

Bucle

Fin?