在VBA中使用图表索引而不是名称

我想从我的第一张表中复制一些内容，将它们粘贴到一个新的工作表中，然后删除第一个工作表并将新的（仅）工作表重命名为Sheet1。 但是我不知道当我创build第二张纸时会怎样命名。 大多数情况下，这将是Sheet2，但我不能指望它。 下面是刚刚创build一个macros的代码，但是它使用了在这个实例中创build的表名。 我想使用表格的索引，而不知道语法：

Columns("A:D").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste Sheets("Sheet1").Select Application.CutCopyMode = False ActiveWindow.SelectedSheets.Delete Sheets("Sheet2").Select Sheets("Sheet2").Name = "Sheet1" 

那么在哪里说“Sheet2”…我怎么做，所以它使用第二张，不一定是名为Sheet2的工作表？

谢谢。

Answer 1

Worksheets(2)是参考第二张纸的方式。

Worksheets(Worksheets.Count)到最后一个。

试试像这样：

 Debug.Print Worksheets(Worksheets.Count).name 

Answer 2

你可以创build一个variables，它将成为新的表格：

 Sub sheetdelet() Dim ws As Worksheet With ThisWorkbook Set ws = .Worksheets.Add .Worksheets("Sheet1").Range("A:D").Copy ws.Range("A1") Application.DisplayAlerts = False .Worksheets("Sheet1").Delete Application.DisplayAlerts = True ws.Name = "Sheet1" End With End Sub