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

在实际操作中，经常需要复制指定的单元格区域到另外一个单元格区域。要复制指定单元格区域到其他位置，使用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 边框除外 xlPasteColumnWidths 8 列宽 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所示，目标区域的各列列宽与源区域一致。?图 4 粘贴列宽后的复制结果注意 使用PasteSpecial方法时指定xlP