在最后一个之后添加一个工作表并复制最后一个不是公式的值

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"

然后激活它以复制到。