Excel VBA循环隐藏行问题：从B9开始至空白行时循环卡顿

你的代码出现无限循环、Excel卡顿的核心原因：循环体内没有让单元格向下移动，程序一直停在B9单元格反复执行隐藏操作，永远无法触发ActiveCell.Text = ""的终止条件。

修正后的基础版代码（保留Select逻辑，适合初学者理解） #

Range("B9").Select
Do Until ActiveCell.Text = ""
    ActiveCell.EntireRow.Hidden = True
    ActiveCell.Offset(1, 0).Select ' 关键：下移到下一行
Loop

更规范的进阶写法（避免Select/Activate，更稳定高效） #

在VBA里尽量少用Select/Activate，既能规避意外问题，还能提升代码运行效率：

Dim currentCell As Range
' 建议替换成具体工作表名，比如Sheets("销售报表")，避免激活错误工作表
Set currentCell = ThisWorkbook.ActiveSheet.Range("B9")

Do Until currentCell.Text = ""
    currentCell.EntireRow.Hidden = True
    Set currentCell = currentCell.Offset(1, 0) ' 移动到下一行
Loop

补充细节 #

• 判断单元格空白的方式：除了Text属性，也可以用IsEmpty(currentCell)或currentCell.Value = ""，前者判断单元格是否未赋值，后者判断值是否为空文本，可根据实际场景选择。
• 如果需求是隐藏B9开始的所有非空白行（即使中间有空白但后续还有内容），可改用For Each循环遍历，但你的场景是遇到第一个空白行就终止，Do循环更匹配需求。

内容的提问来源于stack exchange，提问作者Julie