我创建了一个代码,使用 .hidden = True 来隐藏一些行,我不需要显示它们来进行一些检查,但是之后我想再次显示所有数据,所以我做了这个代码:
Sub show_hidden_cells()
Dim line As Range
Dim rng As Range
Set rng = Range("Tb_Data[Date]")
For Each line In rng
If line.SpecialCells(xlCellTypeVisible) = False Then
line.EntireRow.Hidden = False
End If
Next line
End Sub
我的数据有50.000行,我的电脑不是很快,所以我不想检查每个单元格是否可见,而不是我只想选择隐藏的单元格。
EDIT。 感谢@Rory和@Flephal帮助我的代码现在是:
Sub show_hidden_cells()
Dim rng As Range
Set rng = Range("Tb_Data[Date]")
rng.EntireRow = False
End Sub