Excel 在最后一张图纸之后添加一张图纸，并复制最后一张图纸的值而不是公式_Excel_Vba

Excel 在最后一张图纸之后添加一张图纸，并复制最后一张图纸的值而不是公式

excel vba

Excel 在最后一张图纸之后添加一张图纸，并复制最后一张图纸的值而不是公式,excel,vba,Excel,Vba,我试图只复制最后一张纸上的值（而不是公式），并将新的纸命名为“游戏”。我用这个： Sub CreateColumn() ActiveSheet.Copy Cells.Copy Range("A1").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False ActiveSheet.Name = "Games" Application.ScreenUpdating = False End Sub 但它是在创建一个

我试图只复制最后一张纸上的值（而不是公式），并将新的纸命名为“游戏”。我用这个：

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


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

End Sub

但它是在创建一个新的工作簿，而不是在上一个工作簿之后创建一个新的工作表。有人能帮我吗？谢谢

您需要先添加工作表。比如：

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

然后将其激活以复制到。

另外，最后一张工作表并非始终处于激活状态。。。你也能帮我吗？现在你从activesheet复制到同一个activesheet中。”“Last”真的是Last或者它有什么名字？？您真的需要复制所有单元格吗？？也许只有数据范围会更快？？一些额外的技术提示：

Sheets（Sheets.Count）

是最后一张表。。。要复制，请使用

工作表（Sheets.Count）.Cells.copy

并将其正确粘贴到活动工作表中…Last实际上是Last，每个文件都有不同的名称，但我每次都需要最后一个。