VBA将列的值复制到另一列

如何使用VBA的End（xlRight）将一列的值复制到另一列？ 就像我想总是将columnZ的范围（“Z4：Z203”）的值复制到另一个列的范围（“i5：i204”），我怎样才能使用End（xlright）检查列是否粘贴，它会粘贴在下一列？

Answer 1

为什么不简单地复制所需的范围？

Sub test() Range("Z4:Z203").Select Selection.Copy Range("I5:I204").Select ActiveSheet.Paste End Sub