求VBA汇总排列问题的解决方法

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&
   
    ar = [A1:E6].Value
    br = Array(3, 2, 5, 1, 4)
   
    For j = 1 To UBound(ar, 2)
        For i = 2 To UBound(ar)
            If Len(ar(i, j)) Then ar(1, j) = ar(1, j) & ar(i, j): Exit For
        Next i
    Next j
    For j = 0 To UBound(br)
        ar(2, j + 1) = ar(1, br(j))
    Next j
   
    [A10] = Join(Application.Index(ar, 2))
    Beep
End Sub

gwjkkkkk

。。。。。。。。。。。

shibaideren

gwjkkkkk 发表于 2024-8-3 14:55
Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&

有请上仙，查看错误呢，感谢上仙

songshihai

shibaideren 发表于 2024-8-3 14:31
函数好像不行吧，这里面还有一个按出现的顺序呢  C B E A D
按顺序排序

函数的结果跟他模拟的结果一模一样