使用列表

Question

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

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列是字符串列表。