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