|
在实际操作中，经常需要复制指定的单元格区域到另外一个单元格区域。要复制指定单元格区域到其他位置，使用Range对象的Copy方法，如下面的代码所示。
复制内容到剪贴板
代码:
#001 Sub RangeCopy()
#002 Application.DisplayAlerts = False
#003 Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1")
#004 Application.DisplayAlerts = True
#005 End Sub
代码解析：
RangeCopy过程将如图所示的Sheet1工作表中A1单元格的当前区域复制到Sheet2工作表中以A1单元格为左上角单元格的区域。
Range对象的Copy方法的语法如下：
Copy(Destination)
参数Destination表示复制单元格区域的目标区域，如果省略该参数，Excel将把该区域复制到剪贴板中。使用Copy方法复制单元格区域时，也复制了该单元格区域的格式。
复制单元格区域时，如果目标区域为非空单元格区域，Excel将显示如图所示的消息框提示是否替换单元格内容，可以设置Application.DisplayAlerts属性值为False，使复制时不出现该消息框。
第2行代码通常复制单元格区域的操作不会将单元格区域的列宽大小同时复制，如果希望在复制单元格区域的同时，也复制源区域的列宽大小，可以使用下面的代码。
复制内容到剪贴板
代码:
#001 Sub CopyWithSameColumnWidths()
#002 Sheet1.Range("A1").CurrentRegion.Copy
#003 With Sheet3.Range("A1")
#004 .PasteSpecial xlPasteColumnWidths
#005 .PasteSpecial xlPasteAll
#006 End With
#007 Application.CutCopyMode = False
#008 End Sub
代码解析：
第4行代码使用Range对象的PasteSpecial方法选择性粘贴剪贴板中的Range对象的列宽。
第5行代码粘贴剪贴板中的Range对象全部内容。
第7行代码取消应用程序复制模式。
应用于Range对象的PasteSpecial方法将剪贴板中的Range对象粘贴到指定区域，在粘贴时可以有选择的粘贴对象的部分属性。其语法如下：
PasteSpecial(Paste, Operation, SkipBlanks, Transpose)
参数Paste指定要粘贴的区域部分，可为表格所列的XlPasteType常量之一。
参数SkipBlanks指示是否跳过空单元格，若参数值为True，则不将剪贴板上区域中的空白单元格粘贴到目标区域中。默认值为False。
参数Transpose指示是否进行转置，若参数值为True，则粘贴区域时转置行和列。默认值为False。
运行CopyWithSameColumnWidths过程后，Sheet3工作表如图所示，目标区域的各列列宽与源区域一致。
例子如附件所示：
(责任编辑：admin) |
