本示例复制工作表 Sheet1 上单元格区域 C1:C5 中的数据,然后粘贴到 D1:D5 中。

Range("c1:c5").Copy

ActiveSheet.Paste Destination:=ActiveWorkbook.Worksheets("Sheet1").Range("g5")