我对 VBA 还很陌生,无法通过查看其他帖子来找出这个问题的答案:
我想使用 VBA 隐藏单元格 A18:A153 的文本等于值“隐藏”的所有行,并取消隐藏这些单元格等于值“取消隐藏”的所有行。因此,如果单元格 A22 = “隐藏”,则第 22 行应该隐藏。如果单元格 A23 = “取消隐藏”,则第 23 行应该取消隐藏。
我尝试使用此代码来隐藏单元格,但没有效果,因此我没有尝试取消隐藏单元格:
With Worksheets("Report")
For i = 18 To 153
If Cells(i, 1).Value <> "" And Cells(i, 1).Value = "Hide"
Then Cells(i, 1).EntireRow.Hidden = True
End If
Next i
End With
先感谢您!
答案1
您没有正确使用with
,if-then
以下代码应该可以工作:
With Worksheets("Report")
For i = 18 To 153
If .Cells(i, 1).Value <> "" And .Cells(i, 1).Value = "Hide" Then
.Cells(i, 1).EntireRow.Hidden = True
End If
Next i
End With