VBA - 如果单元格包含指定值，如何隐藏行

Question

我对 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

先感谢您！

Answer 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