excel如何能夠用宏實現把a3數據拷貝到b2 然後無限循環，直到a列數據為空然後停止循環

按Alt+F11，打開vb編輯器，然後選擇"插入"--“模塊”，貼入下方代碼，按F5執行。

Dim?OriRng?As?Range

Dim?DesRng?As?Range

Set?OriRng?=?Range("A3")

Set?DesRng?=?Range("B2")

Do?Until?IsEmpty(OriRng)

OriRng.Copy?DesRng

Set?OriRng?=?OriRng.Offset(2,?0)

Set?DesRng?=?DesRng.Offset(2,?0)

Loop

End?Sub