Excel中的搜索字段，带有分隔文本

Question

我有这种格式的数据（DELIMITED TEXT）

我如何Vlookup "F88"获得1动态价值。

非常感谢

Answer 1

将您发布的数据放在 A1 中，试一试：

Sub DataGrsbber()
    Dim s As String
    s = Replace([A1], "'", "")
    ary = Split(s, ",")
    For i = LBound(ary) To UBound(ary) - 1
        If ary(i) = "F88" Then
            MsgBox ary(i + 1)
            Exit Sub
        End If
    Next i
End Sub

修改＃1：

要将值检索到单元格中，请尝试使用此用户定义函数：

Public Function Retriever(BigString As String, LittleString As String) As String
    Dim s As String
    s = Replace(BigString, "'", "")
    ary = Split(s, ",")
    For i = LBound(ary) To UBound(ary) - 1
        If ary(i) = LittleString Then
            Retriever = ary(i + 1)
            Exit Function
        End If
    Next i
    Retriever = ""
End Function