VBA复制单元格区域
VBA复制单元格区域
在实际操作中,经常需要复制指定的单元格区域到另外一个单元格区域。要复制指定单元格区域到其他位置,使用Range对象的Copy方法,如下面的代码所示。Sub RangeCopy()
Application.DisplayAlerts = False
Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1")
Application.DisplayAlerts = True
End Sub
复制代码代码解析:
RangeCopy过程将如图1所示的Sheet1工作
中A1单元格的当前区域复制到Sheet2工作表中以A1单元格为左上角单元格的区域,如图2所示。
图 1 需复制的数据表
图 2 复制结果
Range对象的Copy方法的语法如下:
Copy(Destination)
参数Destination表示复制单元格区域的目标区域,如果省略该参数,Excel将把该区域复制到剪贴板中。
使用Copy方法复制单元格区域时,也复制了该单元格区域的
,如图2所示。 复制单元格区域时,如果目标区域为非空单元格区域,Excel将显示如图3所示的消息框提示是否替换单元格内容,可以设置Application.DisplayAlerts属性值为False,使复制时不出现该消息框。
图 3 替换对话框
第2行代码通常复制单元格区域的操作不会将单元格区域的列宽大小同时复制,如图 7 2所示。如果希望在复制单元格区域的同时,也复制源区域的列宽大小,可以使用下面的代码。Sub CopyWithSameColumnWidths()
Sheet1.Range("A1").CurrentRegion.Copy
With Sheet3.Range("A1")
.PasteSpecial xlPasteColumnWidths
.PasteSpecial xlPasteAll
End With
Application.CutCopyMode = False
End Sub
复制代码代码解析:
第4行代码使用Range对象的PasteSpecial方法选择性粘贴剪贴板中的Range对象
的列宽。
第5行代码粘贴剪贴板中的Range对象全部内容。 第7行代码取消应用程序复制模式。
应用于Range对象的PasteSpecial方法将剪贴板中的Range对象粘贴到指定区域,在
粘贴时可以有选择的粘贴对象的部分属性。其语法如下: PasteSpecial(Paste, Operation, SkipBlanks, Transpose) 参数Paste指定要粘贴的区域部分,可为
1所列的XlPasteType常量之一。
常量 值 描述
xlPasteAll -4104 全部(默认值)
xlPasteAllExceptBorders 7 边框除外
8 列宽 xlPasteColumnWidths
xlPasteComments -4144 批注
xlPasteFormats -4122 格式
xlPasteFormulas -4123
xlPasteFormulasAndNumberFormats 11 公式和数字格式 xlPasteValidation 6 有效性验证
xlPasteValues -4163 数值
xlPasteValuesAndNumberFormats 12 值和数字格式 表格 1 XlPasteType 常量
参数Operation指定粘贴操作。可为表格2所列的XlPasteSpecialOperation常量之
一。
常量 值 描述
xlPasteSpecialOperationNone -4142 无(默认值) xlPasteSpecialOperationAdd 2 加
xlPasteSpecialOperationSubtract 3 减
xlPasteSpecialOperationMultiply 4 乘
xlPasteSpecialOperationDivide 5 除
表格 2 XlPasteSpecialOperation常量
参数SkipBlanks指示是否跳过空单元格,若参数值为True,则不将剪贴板上区域中的空白单元格粘贴到目标区域中。默认值为False。
参数Transpose指示是否进行转置,若参数值为True,则粘贴区域时转置行和列。默认值为False。
运行CopyWithSameColumnWidths过程后,Sheet3工作表如图4所示,目标区域的各列列宽与源区域一致。