ExcelVBA实例教程#007复制单元格区域.doc

在实际操作中，经常需要复制指定的单元格区域到另外一个单元格区域。要复制指定单元格区域到其他位置，使用Range对象的Copy方法，如下面的代码所示。1. Sub RangeCopy()2. Application.DisplayAlerts = False3. Sheet1.Range(A1).CurrentRegion.Copy Sheet2.Range(A1)4. Application.DisplayAlerts = True5. 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所示。如果希望在复制单元格区域的同时，也复制源区域的列宽大小，可以使用下面的代码。1. Sub CopyWithSameColumnWidths()2. Sheet1.Range(A1).CurrentRegion.Copy3. With Sheet3.Range(A1)4. .PasteSpecial xlPasteColumnWidths5. .PasteSpecial xlPasteAll6. End With7. Application.CutCopyMode = False8. End Sub复制代码代码解析：第4行代码使用Range对象的PasteSpecial方法选择性粘贴剪贴板中的Range对象的列宽。第5行代码粘贴剪贴板中的Range对象全部内容。第7行代码取消应用程序复制模式。应用于Range对象的PasteSpecial方法将剪贴板中的Range对象粘贴到指定区域，在粘贴时可以有选择的粘贴对象的部分属性。其语法如下：PasteSpecial(Paste, Operation, SkipBlanks, Transpose)参数Paste指定要粘贴的区域部分，可为表格1所列的XlPasteType常量之一。常量值描述xlPasteAll-4104全部（默认值）xlPasteAllExceptBorders7边框除外xlPasteColumnWidths8列宽xlPasteComments-4144批注xlPasteFormats-4122格式xlPasteFormulas-4123公式xlPasteFormulasAndNumberFormats11公式和数字格式xlPasteValidation6有效性验证xlPasteValues-4163数值xlPasteValuesAndNumberFormats12值和数字格式表格 1 XlPasteType 常量参数Operation指定粘贴操作。可为表格2所列的XlPasteSpecialOperation常量之一。常量值描述xlPasteSpecialOperationNone-4142无（默认值）xlPasteSpecialOperationAdd2加xlPasteSpecialOperationSubtract3减xlPasteSpecialOperationMultiply4乘xlPasteSpecialOperationDivide5除表格 2 XlPasteSpecialOperation常量参数SkipBlanks指示是否跳过空单元格，若参数值为True，则不将剪贴板上区域中的空白单元格粘贴到目标区域中。默认值为False。参数Transpose指示是否进行转置，若参数值为True，则粘贴区域时转置行和列。默认值为False。运行CopyWithSameColumnWidths