我一直在使用下面的代码来隐藏和取消隐藏行。我想从代码中删除这些选择,但我不知道该怎么做。
代码
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
答案 0 :(得分:2)
可以简化为:
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