本示例将工作表 Sheet1 上单元格区域 A2:D4 中的公式剪下,并复制到从 D1:G3 中。

ActiveWorkbook.Worksheets("Sheet1").Range("A2:D4").Cut

ActiveWorkbook.Worksheets("Sheet1").Range("D1").Paste