使用列表替换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是字符串列表。