VBA 将工作表复制到工作簿末尾(带有隐藏工作表)

Question

我想复制一张工作表并将其添加到所有当前工作表的末尾(无论工作表是否隐藏)。

Sheets(1).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).name = "copied sheet!"

这工作正常，但当存在隐藏工作表时，新工作表仅插入在最后一个可见工作表之后，因此 name 命令会重命名错误的工作表。

我尝试了以下变体来获取对新复制的WorkSheet的引用，但没有一个成功和/或有效的代码。

Dim test As Worksheet
Set test = Sheets(1).Copy(After:=Sheets(Sheets.Count))
test.Name = "copied sheet!"

Answer 1

试试这个

Sub Sample()
    Dim test As Worksheet
    Sheets(1).Copy After:=Sheets(Sheets.Count)
    Set test = ActiveSheet
    test.Name = "copied sheet!"
End Sub

回顾这一点，更好的方法是

Set test = Sheets(Sheets.Count)

正如下面的评论中正确提到的，复制和重命名工作表时需要考虑很多事情。建议也检查其他答案。