如何使用VBA宏复制工作表（不复制）复制

Question

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

所以我希望Sheet2看起来完全像Sheet1。

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

Answer 1

这里有几个方法

WAY 1种的最佳方式做到这一点

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

路2

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可能是取决于数据的最佳方式。请SEE THIS