如何在 VBA 中的一系列单元格中搜索 excel 不等于 "phrase" 的字符串值
How do I search through a Range of cells in VBA for excel for values that are a strings not equal to "phrase"
有人要求我在 VBA 中编写一个足够简单的任务,我通常使用 Java,甚至从未看过 VBA。当我 google 它时,我并没有真正得到我想要的东西,所以我想我会在这里问。
如何在 VBA 中的单元格范围内搜索 excel 不等于 "phrase"
的字符串值
很抱歉这个问题看起来很简单,但这不是我的领域,非常感谢任何反馈
马丁
请看下面。您可以相应地更改范围
Sub searchfor()
Dim rng As Range
Set rng = Range("A1:B100") ' Identify your range
For Each c In rng.Cells
If c.Value <> "" And c.Value <> "phrase" Then '<--- Will search if the cell is not empty and not equal to phrase. If you want to check empty cells too remove c.value <> ""
MsgBox (c.Address & "Not Equal") '<---- Your code goes here
End If
Next c
End Sub
有人要求我在 VBA 中编写一个足够简单的任务,我通常使用 Java,甚至从未看过 VBA。当我 google 它时,我并没有真正得到我想要的东西,所以我想我会在这里问。
如何在 VBA 中的单元格范围内搜索 excel 不等于 "phrase"
的字符串值很抱歉这个问题看起来很简单,但这不是我的领域,非常感谢任何反馈
马丁
请看下面。您可以相应地更改范围
Sub searchfor()
Dim rng As Range
Set rng = Range("A1:B100") ' Identify your range
For Each c In rng.Cells
If c.Value <> "" And c.Value <> "phrase" Then '<--- Will search if the cell is not empty and not equal to phrase. If you want to check empty cells too remove c.value <> ""
MsgBox (c.Address & "Not Equal") '<---- Your code goes here
End If
Next c
End Sub