vba - 获取最后一个非空工作表的最佳方法

Question

我正在尝试写一个 vba组的宏

• 有一本工作簿，他们每天在其中创建新的工作表，并且还有
• 工作表 1、工作表 2 和 工作表 3 位于其长工作表列表的末尾。

我需要在汇总此信息的不同工作簿的新列中创建外部单元格引用。

所以我需要知道如何获取最后一个非空工作表，以便我可以获取此数据并将其适本地放置在摘要中。

Answer 1

此函数从右到左遍历工作表，直到找到非空白工作表，并返回其名称

Function GetLastNonEmptySheetName() As String
Dim i As Long
For i = Worksheets.Count To 1 Step -1
  If Sheets(i).UsedRange.Cells.Count > 1 Then
    GetLastNonEmptySheetName = Sheets(i).Name
    Exit Function
  End If
Next i
End Function