在最後一張之後添加一張紙並複製最後一張數值不是公式

我想只複製最後一張紙的值（不是公式）並將新張命名爲「遊戲」。我正在使用：在最後一張之後添加一張紙並複製最後一張數值不是公式

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


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

End Sub

但它創建了一個新的工作簿，而不是最後一張之後的新工作表。有人能幫助我嗎？謝謝

來源

2013-04-18 karips

另外，最後一張紙不是一直活躍着的......你能幫助我嗎？ – karips

此刻你從activesheet複製到相同的activesheet。 '最後'真的是最後一個，或者它有什麼名字？你真的需要複製所有細胞？也許只有數據範圍會更快？ –

一些額外的技巧：'Sheets（Sheets.Count）'是最後一張...複製使用'Sheets（Sheets.Count）.Cells.Copy'並將其正確粘貼到活動工作表中... –

您需要先添加表格。例如：

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

然後激活它來複制到。

來源

2013-04-18 17:41:49

在最後一張之後添加一張紙並複製最後一張數值不是公式

回答

相關問題