当其他行也显示时，如何显示隐藏行？

Question

我有一堆由清单启用的宏。我想知道当显示88-94中的任一行时如何显示隐藏的行87。基本上，我希望显示88-94中的任何行，然后取消隐藏第87行。

Answer 1

这应该有效：

Sub check_rows()
Dim rng As Range
Set rng = Range("A88:A94")

Dim hiddenCnt As Long
On Error Resume Next
hiddenCnt = rng.SpecialCells(xlCellTypeVisible).Count
If hiddenCnt <> rng.Count Then Rows(87).EntireRow.Hidden = False
On Error goto 0
End Sub

我使用错误处理来捕获没有可见单元格的事件。

Answer 2

这也将起作用，我已经以非常简单的方式编写了代码。

Sub HideRows()
If Rows("88:97").EntireRow.Hidden = False Then
Rows("87").EntireRow.Hidden = True
Else
Msgbox "Some Rows are not Visible"
End If
End Sub