Ecel VBA编程 复制单元格区域.docxVIP

Excel VBA 编程 复制单元格区域 在工作表中，复制单元格区域即复制当前的选择单元格区域中的数据和样式（不包括单元格列的宽度）到目标单元格中。在复制时，其目标单元格可在当前工作表中，也可以在其它的工作表或工作簿中。 当前工作表单元格复制 要使用VBA 代码对单元格区域进行复制，可使用 Range 对象的Copy 方法来实现，Copy 方法可将单元格区域复制到指定的区域或剪贴板中。 格式：表达式.Copy(Destination) 格式中表达式代表了一个 Range 对象的变量，而方法中的 Destinatio参n 数，则是一个可选 变量，它指定了要复制区域的目标单元格区域。如果省略此参数，会将单元格区域复制到剪贴板中。 Sub 复制单元格() 复制单元格 MacroRange(A1).Select Selection.Copy Range(D1).Select ActiveSheet.PasteEnd Sub Sub 复制单元格() 复制单元格 Macro Range(A1).Select Selection.Copy Range(D1).Select ActiveSheet.Paste End Sub Sub 复制单元格()Range(A1).Copy Range(D1) 复制单元格 A1 到D1 End Sub上面的代码中有两句都使用了Select方法，用户可以使用以下方法对代码进行简化，其简化 Sub 复制单元格() Range(A1).Copy Range(D1) 复制单元格 A1 到D1 End Sub 上述的两个宏使用的前提是必须有一个活动的工作表，而且这个操作都将发生在 上述的两个宏使用的前提是必须有一个活动的工作表，而且这个操作都将发生在 提 示 这个工作表中。 不同工作表单元格复制 如果需要把某个单元格区域复制到另一个工作表中或者工作簿中，只需在代码中指定该工作簿的工作表中的单元格引用即可。 Sub 复制工作表()Sheet1.Range(A1).Copy Sheet2.Range(A1) Sub 复制工作表() Sheet1.Range(A1).Copy Sheet2.Range(A1) End Sub 还可以使用对象来代替单元格的区域，代码如下： Private Sub CommandButton1_Click() Private Sub CommandButton1_Click() Dim r1 As Range, r2 As Range声明对象引用 Set Set r1 = Sheet1.Range(A1) Set r2 = Sheet2.Range(A1) 复制对象 r1.Copy r2 End Sub 单元格区域的复制 单元格复制的操作并不局限于某一个单元格的复制，还可一次性针对工作表中的列、行和区域等进行复制。 行、列的复制 用户可以有选择的对工作表中的行和列进行复制。 例如，下面的过程复制工作表中A 列的所有行到D 列中。 Sub CopyCells() Sub CopyCells() Range(A:A).Copy Range(D:D) 复制A 列到D 列End Sub 单元格区域 在复制单元格区域，应先引用该区域或区域名称，然后使用Copy 方法，将其复制到工作表的其他位置、或其他工作表中。 例如，下面的过程复制了一个很大的单元格区域，代码如下： Sub CopyRange() Sub CopyRange() Range(A1：B50).Copy Range(D1) 复制单元格 A1：B50 到 D1：E50 End Sub 单元格区域的复制与单元格的复制一样，都可以复制单元格区域到其他的工作表中。 Sub CopyRange2() Sub CopyRange2() 复制单元格 A1：B50 到工作表 Sheet2 的 D1：E50 单元格中Range(A1：B50).Copy Sheet2.Range(D1) End Sub 在执行复制单元格区域后，目标单元格区域中的数据和样式将被覆盖。 在执行复制单元格区域后，目标单元格区域中的数据和样式将被覆盖。 注 意