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

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

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

您没有正确使用withif-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

相关内容