我正在尝试编写vba代码,该代码在BI列中查找术语“ drek”。如果该术语存在于单元格中,则它将使值“ 1”偏移(0,1)。
我使用了下面的代码,但是它只会找到并抵消第一个“ drek”,然后停止。我需要它,因此它将使用发现的每个“滴水”来完成此操作。
我该怎么做?
Sub find_drek()
Dim rng As Range
Dim cl As Range
Dim sFind As String
sFind = "drek"
Set rng = Range("BI2", Range("BI65536").End(xlUp))
Set cl = rng.find(sFind, LookIn:=xlValues)
If Not cl Is Nothing Then cl.Offset(0, 1).Value = "1"
End Sub
答案 0 :(得分:1)
您可以尝试以下方法:
Dim rng As Range
Dim sFind As String
sFind = "drek"
For Each rng In Range("BI2", Range("BI65536").End(xlUp))
If Not rng.Find(sFind, LookIn:=xlValues) Is Nothing Then
rng.Offset(0, 1).Value = "1"
End If
Next rng
因此,您不需要另一个范围对象。