一维转二维

飞天篮球猪

仅供参考...

yshcy

ykcbf1100 发表于 2024-10-20 16:11
刚看到，改一下吧。

你好，认真学习了你的代码，受益匪浅。把A列的不重复值所对应的B列不重复值放在一个单元格，用\连接，但是首个\怎么去除不了。我这里用mid 从第2个开始取1000，但是没用。请指教，谢谢

1. Sub test()
   
2. Dim dic, arr(), brr(), i, j, k, m, n, s, ss, t, x
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. ReDim brr(1 To UBound(arr), 1 To 2)
   
6. For i = 2 To UBound(arr)
   
7.     s = arr(i, 1): ss = arr(i, 2)
   
8.     If Not dic.exists(s) Then Set dic(s) = CreateObject("scripting.dictionary")
   
9.     dic(s)(ss) = i
   
10. Next i
    
11. For Each k In dic.keys
    
12.     m = m + 1
    
13.     brr(m, 1) = k
    
14.    
    
15.     For Each t In dic(k).keys
    
16.       
    
17.         brr(m, 2) = brr(m, 2) & "" & t
    
18.         x = brr(m, 2)
    
19.         x = Mid(x, 2, 10000)
    
20.     Next t
    
21.    
    
22. Next k
    
23. Range("e2").Resize(m, 2) = brr
    
24. End Sub
    

复制代码

今铭昔

cai2532

一维转二维留下脚印学习了

LIUZHU

今铭昔 发表于 2024-6-19 14:35

代码回写，铭佬能解释下，括号内的参数{value:arr}的意义么？

LIUZHU

今铭昔 发表于 2024-6-19 14:35

A2:B2看成一个Object，取他的Value2属性？用{}解构出来？

LIUZHU

今铭昔 发表于 2024-6-19 14:35

我一般喜欢这样写，res[a]=res[a] || (res[res.length]=[a])

LIUZHU

参与下，可读性有点差，关键是行少

1. function 转换(){
   
2.         const res=Range("a1").CurrentRegion().slice(1).reduce((res,[a,b])=>((res[a]=res[a] || (res[res.length]=[a])).push(b),res),[]);
   
3.         Range("d7").Resize(res.length,res[0].length).Value2=res;
   
4. }

复制代码

LIUZHU

今铭昔 发表于 2024-10-27 13:46

你又搞自己写的类了？

lyfegf