麻烦您了 转置排序困扰 谢谢

ykcbf1100

雪地山羊 发表于 2025-3-18 19:02
ykcbf1100 感谢您
遇到点问题  还得麻烦您
是不是我的版本问题  电脑系统 win 10  excel  2016专业增 ...

我这里可以了。你再试一下。
把ABC三列数据最下方的小点全部去掉，那些不是数字。

温馨云

我也练一个，方法很土但容易看懂。


Sub testWWW()
    Set d = CreateObject("Scripting.Dictionary")  '设置字典d
    Set xyz = Union([a1:a27], [b1:b27], [c1:c27])
    ReDim brr(1 To xyz.Count)
    For i = 1 To xyz.Count
        brr(i) = xyz(i)
    Next
    For i = 1 To UBound(brr)
        d(brr(i)) = ""
    Next
    ar = d.keys
   
    For i = UBound(ar) To 1 Step -1
        For j = 1 To i - 1
            If ar(j) >= ar(j + 1) Then '比较相邻数据
                Temp1 = ar(j)
                ar(j) = ar(j + 1) '交换位置
                ar(j + 1) = Temp1
            End If
        Next j
    Next i
    [f3].Resize(1, UBound(ar) + 1) = ar
End Sub