字典求简化，是否可在item里直接拆分 处理后 再合并呢

jerry3770

字典求简化，是否可在item里直接拆分 处理后 再合并呢？求老师批改 谢上~~

jerry3770

附我的代码图

ykcbf1100

为了节省时间，我还是新写一个吧，一个字典就够了。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.7.29
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     arr = [a1].Resize(r, 2)
   
5.     ReDim brr(1 To UBound(arr), 1 To 2)
   
6.     For i = 3 To UBound(arr)
   
7.         s = arr(i, 1)
   
8.         If Not d.exists(s) Then
   
9.             m = m + 1
   
10.             d(s) = m
    
11.             brr(m, 1) = arr(i, 1)
    
12.             brr(m, 2) = arr(i, 2)
    
13.         Else
    
14.             r = d(s)
    
15.             brr(r, 2) = IIf(InStr(brr(r, 2), arr(i, 2)), brr(r, 2), brr(r, 2) & "/" & arr(i, 2))
    
16.         End If
    
17.     Next
    
18.     [d3:e10000] = ""
    
19.     [d3].Resize(m, 2) = brr
    
20.     MsgBox "OK！"
    
21. End Sub
    

复制代码

jerry3770

ykcbf1100 发表于 2024-7-29 16:47
为了节省时间，我还是新写一个吧，一个字典就够了。

谢谢老师  我的两本字典 其中一本  好像是您之前写给我的  我把它俩并起来了。感谢再次帮助。敬上

jerry3770

我捣鼓了好久 就是没开窍，您速度真快！膜拜！感谢！拜读下先

ykcbf1100

jerry3770 发表于 2024-7-29 16:53
谢谢老师  我的两本字典 其中一本  好像是您之前写给我的  我把它俩并起来了。感谢再次帮助。敬上

你第一段代码象我写的，但第2段代码肯定不是我写的，那不是我的风格。

jerry3770

ykcbf1100 发表于 2024-7-29 17:14
你第一段代码象我写的，但第2段代码肯定不是我写的，那不是我的风格。

是的  我改了区域 和定位。看了好久您这段代码，好用  但是我看晕了，明天接着学习。再次谢谢老师

jerry3770

ykcbf1100 发表于 2024-7-29 16:47
为了节省时间，我还是新写一个吧，一个字典就够了。

  我改成同样的机型后  这里好像无法去除重复项，还能优化吗  老师！！

zpy2

jerry3770 发表于 2024-7-29 17:30
我改成同样的机型后  这里好像无法去除重复项，还能优化吗  老师！！

//select * from Sheet1 limit 20;
cli_split_data~Sheet1~\/~机型;
select 料号,replace(group_concat(distinct(机型)),',','/') 机型 from Sheet1split  group by 料号;

去重