在 Excel 中引用最近添加的工作表

Question

当点击说明工作表上的按钮时，我的宏就会运行。它设置为在必须作为工作表从另一个工作簿添加到工作簿的数据上运行。

但是，我不确定添加后工作表的名称是什么。有没有办法让我的宏在最近添加的工作表上运行，而不是寻找特定的工作表名称？

我设想最终用户右键单击工作表选项卡并复制整个工作表。在这种情况下，名称将是 Sheet1。但是，他们可能会创建一个我不知道其名称的新选项卡，然后从数据工作表复制并粘贴到这个新选项卡中。

我的宏当前激活 Sheet1，然后在此工作表上运行宏。但是，用户可能会创建一个名为 Sheet2 或 Data 等的新工作表。在这种情况下，宏将找不到 Sheet1。

有没有一种方法可以让宏找到最新的工作表而不是查找工作表名称？

Dim datasheet As String, location As String, col As String, row As String
Dim i As Integer, LastRow As Integer, LastCol As Integer, lCol As Integer
Dim t As Long, LasRow As Long, LasCol As Long
Dim t As Long, LasRow As Long, LasCol As Long
Dim PSheet As Worksheet, DSheet As Worksheet
Dim PCache As PivotCache
Dim PTable As PivotTable
Dim PRange As Range

' Don't show macro as the macro runs
Application.ScreenUpdating = False
Worksheets("Sheet1").Activate
datasheet = ActiveSheet.Name

'Moves active sheet to end of active workbook.
ActiveSheet.Move _
After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)

Answer 1

假设您不更改各个工作表的代号，即使其他工作表已被删除，最后添加的工作表也应具有最高的数字代号。

dim w as long, lw as long, wsn as string
for w = 1 to worksheets.count
    if clng(replace(worksheets(w).codename, "Sheet", vbnullstring)) > lw then
        lw = int(replace(worksheets(w).codename, "Sheet", vbnullstring))
        wsn = worksheets(w).name
    end if
next w

with worksheets(wsn)
    'do stuff with the last added worksheet
end with

如果可以删除工作表，那么您可能需要仔细检查代号序列在关闭并重新打开工作簿后是否重新启动。 附录：是的，如果工作簿关闭并重新打开，已删除工作表的代号将被重新使用。

此方法应忽略最新工作表已复制到工作表队列中的位置。

Answer 2

在 ThisWorkbook 模块中，添加：

Public sheetName As String

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    sheetName = ActiveSheet.Name
End Sub

然后在您的代码中查找sheetName。

Worksheets(sheetName).Activate

---

@cyboashu 是对的，这在从另一个工作簿复制工作表时不起作用。

你可以试试这个，当工作簿打开时，它首先用工作表的名称填充一个数组。然后，当您运行宏时，它会查找该数组中的每个 sheetName，如果未找到，则在打开文件后添加该工作表。 将此插入您的工作簿模块中：

Public arrBase

Private Sub Workbook_Open()
 Dim i As Integer
    ReDim arrBase(1 To Sheets.Count)
    For i = 1 To Sheets.Count
        arrBase(i) = ThisWorkbook.Sheets(i).Name
    Next
End Sub

Sub ActivateNewSheet()
    Dim i As Integer
    Dim found As Boolean

    For i = 1 To Sheets.Count
        found = Not IsInArray(Sheets(i).Name, arrBase)
        If found Then Sheets(i).Activate: Exit For
    Next

End Sub

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
  IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1)
End Function