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

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