[已解决]vB合并数据求助

531tommy · 发表于 2022-4-20 13:45

求大神指教，在汇总SHeet1数据时，输出时同一单号不同编号的数据在Sheet2中用"、"分割；
但怎样把重复的编号不进行汇总
Sub 合并()
Dim d, d1, arr, k As Integer, m As Long, n As Long, str
Set d = CreateObject("scripting.dictionary")
arr = Sheet1.Range("A1:E" & Sheet1.[A65536].End(xlUp).Row)
With Sheet2
For k = 2 To UBound(arr)
      str = arr(k, 1) & "|" & arr(k, 4)
      If Not d.exists(str) Then
         d(str) = arr(k, 4)
      Else
         d(str) = d(str) & "、" & arr(k, 4)
      End If
  Next k
For k = 0 To d.Count - 1
      str = Split(d.keys()(k), "|")
      n = n + 1
      arr(n, 1) = str(0)
      arr(n, 2) = d(d.keys()(k))
  Next k
Sheet2.Range("A2:K65536").ClearContents
Sheet2.Range("A65536").End(xlUp).Offset(1, 0).Resize(k, 2) = arr
  End With
End Sub

合并数据.zip (17.16 KB, 下载次数: 4)

psxk3535028-1 · 发表于 2022-4-20 16:30

这个最佳答案由 psxk3535028-1 给出，感谢 psxk3535028-1 的回答。

单击隐藏图章

看看这样行不

531tommy · 发表于 2022-4-20 21:46

psxk3535028-1 发表于 2022-4-20 16:30
看看这样行不

十分感谢，原来是这样谢谢

531tommy · 发表于 2022-4-23 13:02

psxk3535028-1 发表于 2022-4-20 16:30
看看这样行不

代码添加数据后，就会出现转换导入字典的错误，请问如何解决
图片1.png

合并数据.zip (29.12 KB, 下载次数: 2)

psxk3535028-1 · 发表于 2022-4-23 15:54

531tommy 发表于 2022-4-23 13:02
代码添加数据后，就会出现转换导入字典的错误，请问如何解决

有单个的数据出现错误，加一个判断，你试一下，核实正确了再用

531tommy · 发表于 2022-4-23 17:19

psxk3535028-1 发表于 2022-4-23 15:54
有单个的数据出现错误，加一个判断，你试一下，核实正确了再用

原来这样，十分感谢

		自动登录	找回密码
密码			注册