excel - 如何确定VBA中使用的最后一行(包括之间的空格)

Question

这个问题已经有答案了:

Find last used cell in Excel VBA (14 个回答)

已关闭 2 年前。

如何确定 Excel 工作表中的最后一行，包括中间的一些空行？

使用此功能:

Function ultimaFilaBlanco(col As String) As Long        
        Dim lastRow As Long
        With ActiveSheet
            lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, col).End(xlUp).row
        End With            
        ultimaFilaBlanco = lastRow          
End Function

这个数据:

Row 1 : Value
Row 2 : Value
Row 3 : Value
Row 4 : Value
Row 5 : Value
Row 6 : White
Row 7 : Value
Row 8 : Value
Row 9 : Value
Row 10  : White
Row 11  : White
Row 12  : White
Row 13  : Value
Row 14  : White

该函数返回 5，而我需要 13。知道该怎么做吗？

Answer 1

获取最后使用的行数的最佳方法是:

ActiveSheet.UsedRange.Rows.Count 用于当前工作表。

Worksheets("Sheet name").UsedRange.Rows.Count 对于特定工作表。

要获取最后使用的列的编号:

ActiveSheet.UsedRange.Columns.Count 用于当前工作表。

Worksheets("Sheet name").UsedRange.Columns.Count 用于特定工作表。

我希望这会有所帮助。

阿卜杜