1-1 使用选择性粘贴
使用选择性粘贴功能并指定粘贴数值，如下面的代码所示。#001 Sub CopyPasteSpecial()
#002 Sheet1.Range(\"A1\").CurrentRegion.Copy
#003 Sheet2.Range(\"A1\").PasteSpecial Paste:=xlPasteValues#004 Application.CutCopyMode = False#005 End Sub代码解析：
CopyPasteSpecial过程复制工作表Sheet1中A1单元格的当前区域的数值到工作表Sheet2的A1单元格所在第2行代码将如图 8‑1所示的Sheet1中A1单元格的当前区域进行复制。
A1单元格所在区域中。