在单元格 VBA 中查找文本

Question

我正在尝试编写一个宏来显示行依赖单元格值，如下面的代码所示：

  For a = 3 To 400
     If Cells(a, 5).value = reda Then
      Rows(a).Hidden = False
     End If
  Next a

当变量 = cell.value 时效果很好：

reda = LS700 & Cells(a, 5).value= LS700

在这种情况下不起作用： reda = LS700 & Cells(a, 5).value = LS700/LS740.....

非常感谢你 瑞达

Answer 1

你可以试试这个，类似于 BigBen 的回答，他缺少 instr 函数的起始位置，它有效：

invokeAndBlock()

Answer 2

这才是你真正需要的：

reda = "LS700"
For Each rw In ActiveSheet.Range("E3:E400").EntireRow.Rows
    rw.Hidden = InStr(1, rw.Cells(1, 1).Value, reda, 1) > 0
Next