excel - 在最后一张之后添加一张纸并复制最后一张值而不是公式

Question

我正在尝试仅复制最后一张表的值（而不是公式）并将新表命名为“游戏”。我正在使用这个：

Sub CreateColumn()
ActiveSheet.Copy
Cells.Copy
Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False


 ActiveSheet.Name = "Games"
 Application.ScreenUpdating = False

End Sub

但它正在创建一个新的工作簿，而不是最后一个工作表之后的新工作表。有人可以帮助我吗？谢谢

Answer 1

您需要先添加工作表。就像是：

Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Sheet4").Select
Sheets("Sheet4").Name = "Games"

然后激活它以复制到。