求解

1643688477

在字典的合计后，能否以着色的字体为检测依据，合计后，并把号码分别显示出来。也就是右面的效果。仅以测试，其它相同的物料名称也是如此。万分感谢。

1643688477

可能真是无解，它违背了合计的真谛。

taller

如何处理合并项目的“ID号”，合并？取第一个？ 右侧效果示例需要有代表性

沈默00

逻辑关系不明了，，，

1643688477

taller 发表于 2024-6-14 06:31
如何处理合并项目的“ID号”，合并？取第一个？ 右侧效果示例需要有代表性

版主大大，ID号不用管。最后做出来就是右面这个样子，只是去重合计，并在合计后的右边号码里显示出来以前合计前的号码。我用了phonetic这个函数测试了一下可以成功，但用字典来做，在显示合计前的号码存在了问题。我重新上传一次。

1643688477

我去重合计后用了phonetic测试号码显示是可以做出来，但用字典合计后显示号码列出现问题。重新上传一次，请大神帮助。id号不用管。

魂断蓝桥

用sql写比较容易


原始数据



sql
select min(序号) AS NO,箱号,物料名称,SUM(数量) AS 数量,REPLACE(ID号,"ID号：",'') as ID号,
GROUP_CONCAT(号,'|' ) AS 号,SA,max(单位) AS 单位 FROM t group by 箱号,物料名称

结果

taller

1. Option Explicit
   
2. Sub Demo()
   
3.     Dim objDic As Object, objDic2 As Object, rngData As Range
   
4.     Dim i As Long, sKey, arrRes, aTxt, arrData
   
5.     Set objDic = CreateObject("scripting.dictionary")
   
6.     Set objDic2 = CreateObject("scripting.dictionary")
   
7.     Set rngData = Range("A1").CurrentRegion
   
8.     arrData = rngData.Value
   
9.     For i = LBound(arrData) + 1 To UBound(arrData)
   
10.         sKey = arrData(i, 2) & "|" & arrData(i, 3)
    
11.         If objDic.exists(sKey) Then
    
12.             objDic(sKey) = objDic(sKey) + arrData(i, 7)
    
13.             objDic2(sKey) = objDic2(sKey) & "|" & arrData(i, 6)
    
14.         Else
    
15.             objDic(sKey) = arrData(i, 7)
    
16.             objDic2(sKey) = arrData(i, 6)
    
17.         End If
    
18.     Next i
    
19.     ReDim arrRes(1 To objDic.Count, 1 To UBound(arrData, 2))
    
20.     i = 0
    
21.     For Each sKey In objDic.Keys
    
22.         i = i + 1
    
23.         arrRes(i, 1) = i
    
24.         aTxt = Split(sKey, "|")
    
25.         arrRes(i, 2) = aTxt(0)
    
26.         arrRes(i, 3) = aTxt(1)
    
27.         arrRes(i, 4) = UBound(Split(objDic2(sKey), "|")) + 1
    
28.         arrRes(i, 5) = objDic2(sKey)
    
29.         arrRes(i, 7) = objDic(sKey)
    
30.         arrRes(i, 8) = "台"
    
31.     Next
    
32.     rngData.Rows(1).Copy [S1]
    
33.     Range("S2").Resize(objDic.Count, UBound(arrData, 2)).Value = arrRes
    
34. End Sub
    
35. 
    

复制代码

1643688477

taller 发表于 2024-6-14 09:51

强大啊，版主大大。

1643688477

taller 发表于 2024-6-14 09:51

版方大大，我还有个问题想请教。如果要保持合并表格的原样式和格式（列数不变，列数里的字也不变），如不再书写“台”之类的，保持原有格式会有什么问题吗？