如何非遍历合并两个数组？

perfect131

cjq253 发表于 2023-4-11 13:24
虚拟表方法也用过，但还是想看看有没有更便捷的方法实现，如果能找到类似于union的办法那就是完美了

自己写一个自定义函数不就可以了，所谓更便捷 就是 函数 union(arr1,arr2) 或者 union(dic) ,但底层都是循环或者赋值 再赋值，不要纠结这个问题，虚拟表 数组循环才是正路

fanyoulin

数组操作很快的，不耽误事。
如果你觉得双循环麻烦，也可以把两个数组的值先填到单元格中，再一次性全部读取到第三个数组中，下面截图是实测两个10万行5列的数组相加先填充单元格再读取到另一个数组，这个过程用时0.7-0.8秒，我感觉速度还行。

全党

Set sht = CreateObject("excel.sheet")
sht.ActiveSheet.UsedRange = arr
sht.ActiveSheet.Cells(UBound(arr) + 1, 1).Resize(UBound(brr), UBound(brr, 2)) = brr
crr = sht.ActiveSheet.UsedRange

盼盼198310

cjq253 发表于 2023-4-11 13:26
如果直接在表里，那就可以单元格拼接了，没必要走sql了啊

你的原始数组是怎么得到的?

鑫尼达

刚学的时候都有这种想法，后来才体会到老老实实数组循环往往是最快的办法