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

使用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不太熟悉。希望以后还能向你请教，再次感谢。

来自：求助得到的回答

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vy3e3r3xfyrfx7exv2j.html