一个字符串按照条件位置取数的难题

zhangstone

各位高手：


    我有一个字符串按照条件位置取数的难题，求各位高手帮忙！

剑指E

liulang0808

。。。。。。。。。。。。。。。。

zhangstone

剑指E：
   您好！
   您上传的附件好像不对，是我原来的附件，没有修改的内容。

wxxydl

Public Function num_get2(rng1, nm)
        arr = Split("," & rng1, ",")
        If InStr(nm, ",") Then
            ar = Split(nm, ",")
            For i = 0 To UBound(ar)
                 num_get2 = num_get2 & "," & arr(ar(i))
            Next
            num_get2 = Right(num_get2, Len(num_get2) - 1)
        Else
            num_get2 = arr(nm)
        End If
   End Function

zhangstone

liulang0808大侠：

真的是超级感谢，这就是我想要的额结果。

wxxydl

我在原基础上改了一下

zhangstone

wxxydl：
   您好！
   非常感谢您的帮忙！

阿白124

Public Function num_get(rng1, rng2)     Dim r, b     b = Split(Replace(rng1.Value, "，", ","), ",")     For Each r In Split(Replace(rng2.Value, "，", ","), ",")         If Val(r) <= UBound(b) + 1 Then           num_get = num_get & "," & b(Val(r) - 1)         End If     Next     num_get = Mid(num_get, 2) End Function

nicleyuan

学习一下
Public Function GetNum(rng1, rng2)
    Dim dic As Object
    Set dic = CreateObject("scripting.dictionary")
    arr = Application.Transpose(Application.Transpose(Split(rng1, ",")))
    brr = Application.Transpose(Application.Transpose(Split(rng2, ",")))
    For x = 1 To UBound(arr)
        dic(arr(x)) = x
    Next
    For x = 1 To UBound(brr)
        If brr(x) <> "" And GetNum <> "" Then
            GetNum = GetNum & "," & dic.keys()(brr(x) - 1)
            Else:
            GetNum = dic.keys()(brr(x) - 1)
        End If
    Next
End Function