如何确定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?

推荐答案

你真的很亲密。尝试使用一个大的行号与结束（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屋！