按条件统计重复次数

APPLE123

chxw68 发表于 2023-7-6 11:02
修改好了。

谢谢老师的帮助！
请教老师，如何理解以下代码：

1. For Each aa In d.keys
   
2.         If d(aa).Count > 1 Then
   
3.             n = n + 1
   
4.             For Each bb In d(aa).keys
   
5.                 m = m + 1
   
6.                 For j = 1 To UBound(arr, 2)
   
7.                     brr(m, j) = arr(bb, j)
   
8.                 Next
   
9.                 brr(m, UBound(brr, 2)) = m
   
10.                 crr(n, 5)(arr(bb, 10)) = Empty
    
11.             Next

复制代码

chxw68

APPLE123 发表于 2023-7-6 14:38
谢谢老师的帮助！
请教老师，如何理解以下代码：

字典判断是否重复，如果是重复的就写入相关数组。