不同地方的数据如何合并到一起再去重写值到指定位置

sampsonpon

详述如图：

loirol

z865593849

这个用字典没有难度吧

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()    '//2024.11.14
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set sh = ThisWorkbook.Sheets("WTY")
   
5.     ReDim brr(1 To 10000, 1 To 1)
   
6.     For Each sht In Sheets
   
7.         If sht.Name <> sh.Name Then
   
8.             arr = sht.UsedRange
   
9.             For i = 2 To UBound(arr)
   
10.                 s = arr(i, 3)
    
11.                 If s <> Empty Then
    
12.                     If Not d.exists(s) Then
    
13.                         m = m + 1
    
14.                         d(s) = m
    
15.                         brr(m, 1) = s
    
16.                     End If
    
17.                 End If
    
18.             Next
    
19.         End If
    
20.     Next
    
21.     With sh
    
22.         .Columns(14) = ""
    
23.         .Columns(14).NumberFormatLocal = "@"
    
24.         .[n2].Resize(m, 1) = brr
    
25.     End With
    
26.     Set d = Nothing
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox "OK！"
    
29. End Sub
    

复制代码

sampsonpon

loirol 发表于 2024-11-14 14:24

结果不对，哪里不对？正确结果是324个

sampsonpon

ykcbf1100 发表于 2024-11-14 14:37
附件供参考。。。

实测结果正确，运行速度也很快！

sampsonpon

ykcbf1100 发表于 2024-11-14 14:37
附件供参考。。。

老师能不能把这里改掉？改成指定Sheet.因为后面还会添加工作表而不参加运算的。

ykcbf1100

sampsonpon 发表于 2024-11-14 14:55
老师能不能把这里改掉？改成指定Sheet.因为后面还会添加工作表而不参加运算的。

改一下。。。

sampsonpon

ykcbf1100 发表于 2024-11-14 15:11
改一下。。。

老师，是不是还可以有改进的地方，因为我在选取这个结果时为什么到底了？
理应234个结果，它到N235呀，现在N236到底虽然空白感觉有值