下面的代码测试通过:
Option ExplicitSub 隐藏未用空行() Range(Cells(Rows.Count, 1).End(xlUp).Row + 1 & ":" & Rows.Count).EntireRow.Hidden = TrueEnd Sub
实际上核心就是一个语句:
Range(Cells(Rows.Count, 1).End(xlUp).Row + 1 & ":" & Rows.Count).EntireRow.Hidden = True