excel - 如何使用 VBA 宏（非复制）复制工作表

Question

如何使用 VBA 宏复制工作表但不使用 VBA 复制方法？

所以我希望 Sheet2 在之后看起来与 Sheet1 完全一样。

我是 VBA 宏的新手，所以请指导我。

Answer 1

这里有几种方法

方式 1 最好的方法

ThisWorkbook.Sheets("Sheet1").Copy _
After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

方式二

Sub Sample()
    Dim wsToCopy As Worksheet, wsNew As Worksheet

    On Error GoTo Whoa:

    Set wsToCopy = ThisWorkbook.Sheets("Sheet1")
    Set wsNew = ThisWorkbook.Sheets.Add

    wsNew.Name = "Copy of " & wsToCopy.Name

    wsToCopy.Cells.Copy wsNew.Cells

    Exit Sub
Whoa:
    MsgBox Err.Description
End Sub

笔记：

如果您正在使用Excel 2003，那么WAY 2可能是最好的方法，具体取决于数据。请看这个