如何避免选择隐藏和取消隐藏行

Question

我一直在使用下面的代码来隐藏和取消隐藏行。我想从代码中删除这些选择，但我不知道该怎么做。

代码

Sub Row()
With Sheet1
.Rows("2:29").Select
If .Rows("2:29").Hidden = True Then
Selection.EntireRow.Hidden = False
Else
Selection.EntireRow.Hidden = True
End If
End With
End Sub

我试过了，但没有用。您的帮助将不胜感激。

Sub Row()
With Sheet1
.Rows("2:29")
If .Rows("2:29").Hidden = True Then
EntireRow.Hidden = False
Else
EntireRow.Hidden = True
End If
End With
End Sub

Answer 1

可以简化为：

Sub Row()
    With Sheet1.Rows("2:29")
        If .Hidden = True Then
            .Hidden = False
        Else
            .Hidden = True
        End If
    End With
End Sub

BigBen 的建议：

Sub Row()
    With Sheet1.Rows("2:29")
        .Hidden = Not .Hidden
    End With
End Sub