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

2025-03-29 03:19:35
推荐回答(1个)
回答1:

下面的代码测试通过:

Option Explicit

Sub 隐藏未用空行()
    Range(Cells(Rows.Count, 1).End(xlUp).Row + 1 & ":" & Rows.Count).EntireRow.Hidden = True
End Sub

实际上核心就是一个语句:

Range(Cells(Rows.Count, 1).End(xlUp).Row + 1 & ":" & Rows.Count).EntireRow.Hidden = True