2个二维数组对比，找出一个其中不同的组成新的数组输出

广慧同乐

fgq5910 发表于 2025-12-12 19:07
Option Explicit
Sub 补全两组内容()
    Dim arr(), brr(), crr(), i As Long, j As Long, dic1 As Obje ...

感谢，感谢

广慧同乐

ykcbf1100 发表于 2025-12-12 21:43

非常感谢大佬，学习思路

广慧同乐

gwjkkkkk 发表于 2025-12-12 19:09
Option Explicit
Sub test1()
    Dim ar, br, i&, j&, r&, dic As Object

感谢，感谢

广慧同乐

excelvlookup 发表于 2025-12-12 20:44
Sub aa()
Set d = CreateObject("scripting.dictionary")
ar = Range("o10684").End(xlUp).Row

感谢，感谢，学习了

chxw68

练习。。。

laoye5403

简单思路两个:
1\把两个区域合并,字典梳理一下就OK了.
2\在定义G到J列数组时,把行加大,然后,判断MN列数据时,直接往数组后面添加即可!
这里用的第二个思路,代码相对简洁.

广慧同乐

laoye5403 发表于 2025-12-13 13:38
简单思路两个:
1\把两个区域合并,字典梳理一下就OK了.
2\在定义G到J列数组时,把行加大,然后,判断MN列数据 ...

感谢，第1个思路不适合后面我要弄的统计。第2个思路的代码学习了

sdytsxd991122

sdytsxd991122

zpy2

cr  eate temp table aa as


s  elect 班级,学员 fr om Sheet1 u nion


s elect 班级,学员 from Sheet2;


s elect * from aa left j oin Sheet1 u sing(班级,学员)