这个可以用宏实现,你会用吗?如果不会,HI我 运行以下宏即可实现你的要求Sub 空行隐藏()
Dim arr
Dim iR&, x&
iR = Range("B65536").End(xlUp).Row
arr = Range("B1:B" & iR).Value
For x = 1 To UBound(arr)
If arr(x, 1) = "" Then
Rows(x).EntireRow.Hidden = True
Else
Rows(x).EntireRow.Hidden = False