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

ExcelVBA实例教程#007：复制单元格区域 在实实操作中～实常需要实制指定的实元格域到外一实元格域。要实制指定实元格域到其他位置～使用区另个区区Range实象的Copy方法～如下面的代实所示。 1.Sub RangeCopy() 2. Application.DisplayAlerts = False 3. Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1") 4. Application.DisplayAlerts = True 5.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.Copy 3. With Sheet3.Range("A1") 4. .PasteSpecial xlPasteColumnWidths 5. .PasteSpecial xlPasteAll 6. End With 7. Application.CutCopyMode = False 8.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实程后～Sheet3工作表如实4所示～目实域的各列列实源域一致。区与区 实 4 粘实列实后的实制实果 注意 使用PasteSpecial方法实指定xlPasteAll(粘实全部)～不粘实列实。会