VBA中ArrayList使用之浅见

七夕、

第一次看见这个用法,学习了

zhangmi

学习一下，这个还没用过。
排序的话，这个能处理二维数组排序吗？

micch

学习了，特定情况下还是挺有用的

kuangben8

学习了！感谢分享。

wodewan

zhangmi 发表于 2020-8-21 23:21
学习一下，这个还没用过。
排序的话，这个能处理二维数组排序吗？

变通下也是可以的，提供两种方法供参考：
1. 和字典配合使用，list排序，字典记录位置行号，然后依次读取，不过如果排序项存在重复，处理麻烦了点。
2. 直接把排序项和行号组合成特定字符串，加入list，排序后取字符串中的行号，依次读取，可避免第一种方法的问题。
附件用第二种方法做的模拟供参考，数据是楼主最后一个例子修改的，按总分排序，总分存在重复项。

大镁铝

楼主，23楼也有好多例子的，我看过，一般人我不告诉他的点击链接

大镁铝

管理员，我的帖子怎么还没出来，我不发了，能给我删掉嘛？（说真的，管理员看上我了，管理员？有房有车嘛？，小尼子年芳十八）

丸子不是小孩子

留个记号。。。。。。

lmgz007

大镁铝 发表于 2020-8-22 11:26
楼主，23楼也有好多例子的，我看过，一般人我不告诉他的点击链接

谢谢分享，对于数据结构简单的问题，还是蛮方便的。关键在于活学活用。

chxw68

今天遇到这样一道题，删除重复数据的行，由于每行数据都没有排序，刚好用到了刚学的arraylist，挺方便的。

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim rng As Range
   
5.   Dim d As Object
   
6.   Dim arrlst As Object
   
7.   Set d = CreateObject("scripting.dictionary")
   
8.   Set arrlst = CreateObject("system.collections.arraylist")
   
9.   With Worksheets("sheet1")
   
10.     arr = .Range("c4:g13")
    
11.     For i = 1 To UBound(arr)
    
12.       arrlst.Clear
    
13.       For j = 1 To UBound(arr, 2)
    
14.         arrlst.Add arr(i, j)
    
15.       Next
    
16.       arrlst.Sort
    
17.       ss = Join(arrlst.toarray, ",")
    
18.       If Not d.exists(ss) Then
    
19.         d(ss) = ""
    
20.       Else
    
21.         If rng Is Nothing Then
    
22.           Set rng = .Cells(i + 3, 3).Resize(1, UBound(arr, 2))
    
23.         Else
    
24.           Set rng = Union(rng, .Cells(i + 3, 3).Resize(1, UBound(arr, 2)))
    
25.         End If
    
26.       End If
    
27.     Next
    
28.     If Not rng Is Nothing Then
    
29.       rng.Delete shift:=xlUp
    
30.     End If
    
31.   End With
    
32. End Sub

复制代码