查找范围内的所有值并在下一个单元格中设置另一个 cell.value

Question

嗨，我正在使用宏在一系列字符串中查找单词 Flex，但我需要设置另一个值以在它旁边创建一个列。 但我无法找出遍历所有单元格直到最后一行的方法，并为找到的每个值在下一个单元格和列中设置另一个值。

Sub Method2()
Dim rng1 As Range
Dim strSearch As String
strSearch = "Flex"
Set rng1 = Range("A:A").Find(strSearch, , xlValues, xlPart)
If Not rng1 Is Nothing Then
    MsgBox "Find has matched " & strSearch & vbNewLine & "corresponding cell is " & rng1.Offset(0, 1)

Else
    MsgBox strSearch & " not found"
End If

结束子

Answer 1

如果您的意思是可以多次找到“Flex”并且您希望每次都出现一个消息框，请尝试此操作。 如果要更改下一个单元格中的值，只需更改 Do 循环内的行。

这使用 FindNext 并记录第一个查找的地址并继续循环直到我们回到那里，这意味着是时候停止了。

Sub Method2()

Dim rng1 As Range
Dim strSearch As String, s As String

strSearch = "Flex"
Set rng1 = Range("A:A").Find(strSearch, , xlValues, xlPart)

If Not rng1 Is Nothing Then
    s = rng1.Address
    Do
        rng1.Offset(0, 1).value=1            
        MsgBox "Find has matched " & strSearch & vbNewLine & "corresponding cell is " & rng1.Offset(0, 1)
        Set rng1 = Range("A:A").FindNext(rng1)
    Loop Until rng1.Address = s
Else
    MsgBox strSearch & " not found"
End If

End Sub