如何使用 VBA 宏（非复制）复制来复制工作表
声明：本页面是StackOverFlow热门问题的中英对照翻译，遵循CC BY-SA 4.0协议，如果您需要使用它，必须同样遵循CC BY-SA许可，注明原文地址和作者信息，同时你必须将它归于原作者（不是我）：StackOverFlow
原文地址: http://stackoverflow.com/questions/19584497/
Warning: these are provided under cc-by-sa 4.0 license. You are free to use/share it, But you must attribute it to the original authors (not me):
StackOverFlow
How to replicate a sheet using VBA Macro (not copy) replicate
提问by NoobSa1b0tt
How would I replicate a sheet using VBA Macro but not use the VBA copy method?
如何使用 VBA 宏复制工作表而不使用 VBA 复制方法？
So I want Sheet2 to look exactly like Sheet1 after.
所以我希望 Sheet2 看起来和 Sheet1 完全一样。
I am new to VBA Macros so please guide me.
我是 VBA 宏的新手，所以请指导我。
回答by Siddharth Rout
Here are couple of ways
这里有几种方法
WAY 1 Best way to do it
方法 1 最好的方法
ThisWorkbook.Sheets("Sheet1").Copy _
After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Way 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
NOTE:
笔记：
In case you are using Excel 2003, then WAY 2might be the best way depending on the data. Please SEE THIS
如果您使用的是Excel 2003，那么根据数据，方式2可能是最佳方式。请看这个
