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”之类的内容。

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

建议？提前致谢！

标签： vbaexcel

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