vba - 使用 VBA 搜索范围并在新列中显示匹配项

Question

我正在尝试编写一些内容来搜索特定范围内的特定数字。

例如:

Dim cell As Range
For Each cell In Range("E5:E112")
If InStr(cell.Value, "260") > 0 Then
DO THIS
ElseIf InStr(cell.Value, "154") > 0 Then
DO THIS
etc...

我使用了 instr，因为单元格会包含“word 1 word 2 260 word 3”之类的内容。

对于在该范围内找到的每个匹配项，我想将某个值放入不同列的同一行。

建议？提前致谢!

Answer 1

试试这个:

Sub testing()
    Dim cell As Range
    For Each cell In Range("E5:E112")
        If InStr(cell.Value, "260") > 0 Then
            cell.Offset(0, 2).Value = "Found 260"
        ElseIf InStr(cell.Value, "154") > 0 Then
            cell.Offset(0, 2).Value = "Found 154"
        End If
    Next
End Sub