求剔重后排列数据

ascarecrow

各位大神，
A、B 2列数据，A列剔重后 依次展示B列对应数据。
数据有点多（10W条起步），用AI写的显示有错，速度还慢。
求各位大神赐个代码，感谢！！
剔重排列.7z (1.43 MB, 下载次数: 20)

2025-5-9 11:11 上传

点击文件名下载附件

ynzsvt

看看效果…

苏小亓

看看我用ai处理的效果

今铭昔

清风竹-

请参考。。

zhangcheng6688

借楼学习一下字典
Sub test()
arr = Sheets("总表").[a1].CurrentRegion
Set dic = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   dic(arr(i, 1)) = dic(arr(i, 1)) & "," & arr(i, 2)
Next
ReDim brr(1 To dic.Count, 1 To 1000)
For Each k In dic.keys
   m = m + 1
   brr(m, 1) = k
   c = 1
   s = Split(Mid(dic(k), 2), ",")
   For i = 0 To UBound(s)
      c = c + 1
      brr(m, c) = s(i)
   Next
   
   If mx < c Then
      mx = c
   End If
Next
With Sheets("结果")
   .[a1].CurrentRegion.Offset(1).ClearContents
   Columns("a").NumberFormat = "@"
   If m > 0 Then
      .[a2].Resize(m, mx) = brr
   End If
End With
Set dic = Nothing
End Sub

ascarecrow

zhangcheng6688 发表于 2025-5-9 12:49
借楼学习一下字典
Sub test()
arr = Sheets("总表").[a1].CurrentRegion

这个结果显示的是科学计数。。

ascarecrow

清风竹- 发表于 2025-5-9 12:40
请参考。。

感谢大佬，不仅数据准确，速度还快

ascarecrow

苏小亓 发表于 2025-5-9 12:21
看看我用ai处理的效果

这个速度有点慢。。。。。。。。

ascarecrow

ynzsvt 发表于 2025-5-9 12:18
看看效果…

这个速度最快，完美解决！！