我正在尝试写一个 vba组的宏
- 有一本工作簿,他们每天在其中创建新的工作表,并且还有
- 工作表 1、工作表 2 和 工作表 3 位于其长工作表列表的末尾。
我需要在汇总此信息的不同工作簿的新列中创建外部单元格引用。
所以我需要知道如何获取最后一个非空工作表,以便我可以获取此数据并将其适本地放置在摘要中。
最佳答案
此函数从右到左遍历工作表,直到找到非空白工作表,并返回其名称
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
关于vba - 获取最后一个非空工作表的最佳方法,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/280872/