VBA中ArrayList使用之浅见

魂断蓝桥

混合升序排序 如果都转成str   10会排在2的前面

wodewan

魂断蓝桥 发表于 2020-8-24 10:01
混合升序排序 如果都转成str   10会排在2的前面

'补充一下：如果是纯数字（"10"，2），直接Val()，如果有字母，汉字，文本数字，数字，可以Format(),  Sort的规则是固定的，但根据实际需求可以变换转换函数的。

Sub test()
Dim ar, i
Dim list: Set list = CreateObject("system.collections.arraylist")
ar = Array("1", "B", 10, 2, "8", "a", 3, 5, "你好")
For i = 0 To UBound(ar)
   list.Add Format(ar(i), "000")
Next
list.Sort
Range("a1").Resize(1, list.Count) = list.toarray
End Sub

cui26896

学习，在原有教材中没有。

魂断蓝桥

wodewan 发表于 2020-8-24 10:55
'补充一下：如果是纯数字（"10"，2），直接Val()，如果有字母，汉字，文本数字，数字，可以Format(),  So ...

format 用的妙啊 没想到FORMAT("A",000) 竟然没有返回错误

笨鸟飞不高

wodewan 发表于 2020-8-24 10:55
'补充一下：如果是纯数字（"10"，2），直接Val()，如果有字母，汉字，文本数字，数字，可以Format(),  So ...

值得我们新手学习一下！！

aman1516

wodewan 发表于 2020-8-24 10:55
'补充一下：如果是纯数字（"10"，2），直接Val()，如果有字母，汉字，文本数字，数字，可以Format(),  So ...

类似于 SortedList ，也是同样问题，只能同样的处理方法

山中老人

排序没有我写的那个字典扩展类好！

死磕 Dictionary！ 关于字典排序的 最终方案！

任意数据类型排序都能支持！

chis3

是新鮮的東西,留個名

lmgz007

wodewan 发表于 2020-8-22 10:38
变通下也是可以的，提供两种方法供参考：
1. 和字典配合使用，list排序，字典记录位置行号，然后依次读 ...

你的format运用的真好。一般来说，混和排序的基本就是对比为主，或者作为字典的key，多数可能还是数字的排序，但如果出现了小数或负数的多列排序，直接format就有点问题。我在你的基础上做了点修改，增加了小数和负数，希望能帮到有需要的朋友。（没考虑超过15位的极端情况）

Sub test2()
    Dim list As Object: Set list = CreateObject("system.collections.arraylist")
    Dim arr, res, s, i, j, k, R, sr
    R = Range("A1048576").End(3).Row
    sr = Mid(10 ^ Len(R), 2)
    arr = Range("A2:G" & R): ReDim res(R - 1, 1 To UBound(arr, 2))
    For i = 1 To R - 1
        s = Val(arr(i, 7) & Format(i, sr))
        list.Add (s)
    Next i
    list.Sort
'    list.Reverse
    For i = 0 To list.Count - 1
        k = Right(list(i), Len(R))
        For j = 1 To UBound(arr, 2)
            res(i, j) = arr(k, j)
        Next
    Next
    [j2].Resize(UBound(arr), UBound(arr, 2)) = res
End Sub

chxw68

刚学习arraylist，一下子还想不到有什么用处。链接中的这个问题也很适合使用arraylist来解决。
http://club.excelhome.net/forum. ... typeid%26typeid%3D9