请教老师，用VBA找出序号所对应的数并一起合并显示在另一行中，谢谢！

cartel

请教老师，用VBA找出序号所对应的数并一起合并显示在另一行中，谢谢！.zip (9.83 KB, 下载次数: 20)

2024-10-1 13:56 上传

点击文件名下载附件

longwin

Sub test()
Set d = CreateObject("scripting.dictionary")
arr = Range("AS1:AT16").Value
For i = 1 To UBound(arr)
    d(Val(arr(i, 1))) = arr(i, 2)
Next
brr = Split([ay2].Value, ",")
For i = 0 To UBound(brr)
    ss = ss & "," & d(Val(brr(i)))
Next
[ay3] = Right(ss, Len(ss) - 1)
End Sub

飞天篮球猪

cartel

飞天篮球猪 发表于 2024-10-1 15:21

飞天篮球猪,老师你好！
按你的公式抄了一遍，怎么说是错误的，
想请老师把公式再写下，谢谢！

飞天篮球猪

cartel 发表于 2024-10-1 17:05
飞天篮球猪,老师你好！
按你的公式抄了一遍，怎么说是错误的，
想请老师把公式再写下，谢谢！

这个是插件，要装了之后才能用

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, r&
   
    ar = Split([AY2].Value, ",")
    r = Cells(Rows.Count, "AS").End(xlUp).Row
    br = Range("AS1:AT" & r).Value
   
    For i = 0 To UBound(ar)
        ar(i) = br(ar(i), 2)
    Next i
   
    ar = Split(Join(ar, ","), ",")
    ReDim br(UBound(ar))
    For i = 0 To UBound(ar)
        br(i) = Val(ar(i))
    Next i
   
    bSort1 br, 0, UBound(br)
    [Ay3].Value = Join(br, ",")
    Beep
End Sub


Function bSort1(ByRef ar, ByVal iFirst&, ByVal iLast&, _
    Optional ByVal isOrder As Boolean = True)
    Dim i&, j&, vTemp
   
    For i = iFirst To iLast - 1
        For j = iFirst To iLast + iFirst - 1 - i
            If ar(j) <> ar(j + 1) Then
                If ar(j) < ar(j + 1) Xor isOrder Then
                    vTemp = ar(j)
                    ar(j) = ar(j + 1)
                    ar(j + 1) = vTemp
                End If
            End If
        Next j
    Next i
End Function

gwjkkkkk

.........................