请教大神：VBA字典怎样整理数据？谢！

今铭昔

白云无尽9987 发表于 2024-3-2 18:10
感谢帮助，鲜花延迟奉上……

不用的，我这个不是VBA，这个是只能在WPS上运行的JS代码，而且还用了我自己写的库。我单纯是来凑个热闹的。

半百

APPLE123

半百 发表于 2024-3-2 21:00

老师好！请教一下：
1、如何理解这一句代码d(arr(i, 1)) = Application.Text(d(arr(i, 1)), ";;;@、") & arr(i, 2)
2、其中分号使用;;;或；；；视乎没有区别
3、;;;@、这些字符做什么用的？
麻烦老师了，谢谢！

准提部林

D列去重//一次迴圈完成..by.准提部林
信手寫來//
sub Test_a1()
Set xd = CreateObject("Scripting.Dictionary")
arr = [C1].CurrentRegion.Value
for i=2 to ubound(arr)
    t1$=arr(i,1): t2$=arr(i,2): t$= t1 & "\" & t2
    r=xd(t1): k=r: xd(t)=xd(t)+1
    if r=0 then n=n+1: r=n: xd(t1)=r: brr(r,1)=t1
    if xd(t)=1 then brr(r,2)=brr(r,2) & left("、",k) & t2
next i
[f2].resize(n,2)=arr
end sub

半百

APPLE123 发表于 2024-3-3 11:47
老师好！请教一下：
1、如何理解这一句代码d(arr(i, 1)) = Application.Text(d(arr(i, 1)), ";;;@、") & ...