如何用VBA搜索指定区域并在同行其他列写入匹配对应值？

没问题！你的思路用InStr处理带文本的混合格式单元格完全正确，接下来只需要在匹配成功后给同一行的目标列赋值就行。我给你整理了两种方案，分别适配不同的匹配项数量场景：

方案一：少量匹配项直接用条件判断 #

如果你只需要匹配几个固定数字，直接用If...ElseIf结构最直观：

Sub MatchAndFillBasic()
    Dim cell As Range
    
    ' 遍历E5到E112的所有单元格
    For Each cell In Range("E5:E112")
        ' 检查是否包含"260"，匹配则在同一行的F列填入指定值
        If InStr(cell.Value, "260") > 0 Then
            cell.Offset(0, 1).Value = "对应260的特定值"
        ' 检查是否包含"154"，匹配则填入对应值
        ElseIf InStr(cell.Value, "154") > 0 Then
            cell.Offset(0, 1).Value = "对应154的特定值"
        ' 可以继续添加更多匹配条件
        ' ElseIf InStr(cell.Value, "XXX") > 0 Then
        '     cell.Offset(0, 1).Value = "对应XXX的特定值"
        ' 如果没有匹配项，可选清空目标单元格
        Else
            cell.Offset(0, 1).Value = ""
        End If
    Next cell
End Sub

关键细节说明： #

• cell.Offset(0, 1)：表示当前单元格向右偏移1列（也就是同一行的F列）。如果要填到左边的列，比如D列，就改成cell.Offset(0, -1)；如果要填到G列，就用cell.Offset(0, 2)。
• 如果你想直接指定列号，也可以用Cells(cell.Row, "G").Value = "值"这种写法，效果是一样的。
• InStr(cell.Value, "260") > 0：只要单元格内容里包含"260"这个字符串，就会触发匹配，完全符合你描述的word 1 word 2 260 word 3这种格式。

方案二：大量匹配项用数组批量处理 #

如果需要匹配的数字很多，写一堆ElseIf会很繁琐，建议把匹配规则存到数组里，用循环批量处理，维护起来更方便：

Sub MatchAndFillWithArray()
    Dim cell As Range
    Dim matchPairs As Variant
    Dim i As Integer
    
    ' 定义匹配规则数组：每一组是【要搜索的数字，要填充的对应值】
    matchPairs = Array( _
        Array("260", "产品A"), _
        Array("154", "产品B"), _
        Array("300", "产品C"), _
        Array("450", "产品D") _
    )
    
    For Each cell In Range("E5:E112")
        ' 默认清空目标单元格
        cell.Offset(0, 1).Value = ""
        
        ' 遍历所有匹配规则
        For i = LBound(matchPairs) To UBound(matchPairs)
            If InStr(cell.Value, matchPairs(i)(0)) > 0 Then
                cell.Offset(0, 1).Value = matchPairs(i)(1)
                Exit For ' 找到匹配后立即退出内层循环，避免重复匹配
            End If
        Next i
    Next cell
End Sub

优势： #

• 后续要添加或修改匹配规则，只需要修改matchPairs数组即可，不用动循环逻辑。
• 如果同一个单元格可能包含多个匹配项，Exit For会确保只填入第一个匹配到的值，你可以根据需求去掉这行，让它覆盖为最后一个匹配的值。

内容的提问来源于stack exchange，提问作者dwillz