使用列表替换excel列中的文本字符串

Question

我有一个文本字符串列表。 如果任何单元格包含包含列表中的一个文本字符串的值，我需要一个公式或插件在列中查找。如果是，则应将单元格数据替换为列表中的确切文本字符串以及删除前后的所有字符

Answer 1

试试这个简单的 vba 代码，

Sub findMatch()
Dim i As Long, j As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    For j = 2 To Cells(Rows.Count, 2).End(xlUp).Row
        If InStr(Cells(i, 1), Cells(j, 2)) Then
            Cells(i, 1) = Cells(j, 2)
        End If
    Next j
Next i
End Sub

之前

之后

A 列是您需要搜索的数据，B 列是字符串列表。