Question

如何用vba实现以A列最后一个非空白单元格作为条件判定，将下面的所有行全部自动隐藏。

谢谢哈，按照你上面的代码我实现了4000行以后的所有隐藏，但是实际上我的数据只写到了500多行，500多行以后到4000行里面都有公式，但是根据公式判定的结果单元格的值为“”也相当于是空白单元格啊，这些行为什么没有自动隐藏呢？

Answer 1

使用End和UsedRange获得的范围，都是包含有空格、公式等内容的，虽然他们看起来是空的，实际上存储了内容，需要判断你的标准的空白单元格，只有逐一判断，可能速度有点慢：

Option Explicit

Sub 隐藏A列最后一个显示有内容之后的行()
    Dim n
    n = Cells(Rows.Count, 1).End(xlUp).Row
    While n > 1 And Cells(n, 1) = ""
        n = n - 1
    Wend
    n = n + 1
    Range(n & ":" & Rows.Count).EntireRow.Hidden = True
End Sub

追问

谢谢老师了，按照你的代码，我实现了哈，我也想全部都用VBA但是我用ADO从数据库里查出来的数据有些不是现成的需要处理一下，所以才用了公式，我对VBA不太熟悉。希望以后还能向你请教，再次感谢。