[已解决]用VBA提取最后非空行的疑惑

爱疯

没反应过来：标题就是问题哦
下面只是两种比较常见的写法


'提取A列最后非空行的行号
Sub test()

    '1）简单，好理解。但如果数据源超过65536，可能发生误判。
    MsgBox Range("a65536").End(xlUp).Row

    '2）也是好理解。不论是否超过65536，都不会误判。
    MsgBox Cells(Rows.Count, 1).End(xlUp).Row

End Sub

蝶·舞

爱疯 发表于 2013-12-30 19:31
没反应过来：标题就是问题哦
下面只是两种比较常见的写法

这样的话，行号会返回10，但我的要求只是在A2:A9之间的最后行号，不管A10后来的单元格是否有内容

爱疯

Sub test2()
    Dim i
    For i = 9 To 2 Step -1
        If Cells(i, 1) <> "" Then Exit For
    Next
   
    If i = 1 Then
        MsgBox "A2:A9中，全部为空单元格"
    Else
        MsgBox "A2:A9中，第1个非空单元格时在A" & i
    End If
End Sub

爱疯

因为A10不确定是否为空，并且要判断的区域A2:A9中的端点A9也不确定是否为空，

所以改用先循环判断，再判断得到结果。

我觉得这样写，更容易理解一些吧