如何确定VBA中使用的最后一行，包括其间的空格 [英] How to determine the last Row used in VBA including blank spaces in between

问题描述

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

How can I determine the last row in an Excel sheet, including some blank lines in the middle?

使用此功能:

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.知道怎么做吗?

The function returns 5, and I need 13. Any idea how to do it?

推荐答案

你真的很接近.尝试使用带有 End(xlUp)

You're really close. Try using a large row number with End(xlUp)

Function ultimaFilaBlanco(col As String) As Long

        Dim lastRow As Long
        With ActiveSheet
            lastRow = ActiveSheet.Cells(1048576, col).End(xlUp).row
        End With

        ultimaFilaBlanco = lastRow

End Function

这篇关于如何确定VBA中使用的最后一行，包括其间的空格的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！