用vb做到同行数据去重复后排序

tandke

用vb做到同行数据去重复后排序，这个问题用函数做的话，数据一多电脑就太慢了，所以请高手出手用VB实现，谢谢。

xiangbaoan

………………………………

tandke

xiangbaoan 发表于 2018-9-10 17:53
………………………………

谢谢你的解答，效果不错哟，我开始试着写了点代码始终没成功，看来还要继续练习。谢谢你的解答。

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   With Worksheets("sheet1")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     arr = .Range("a2:k" & r)
   
9.     For i = 1 To UBound(arr)
   
10.       d.RemoveAll
    
11.       For j = 1 To UBound(arr, 2)
    
12.         d(arr(i, j)) = ""
    
13.       Next
    
14.       brr = d.keys
    
15.       For x = 0 To UBound(brr) - 1
    
16.         p = x
    
17.         For y = x + 1 To UBound(brr)
    
18.           If brr(p) > brr(y) Then
    
19.             p = y
    
20.           End If
    
21.         Next
    
22.         If p <> x Then
    
23.           temp = brr(x)
    
24.           brr(x) = brr(p)
    
25.           brr(p) = temp
    
26.         End If
    
27.       Next
    
28.       .Cells(i + 1, 14).Resize(1, UBound(brr) + 1) = brr
    
29.     Next
    
30.   End With
    
31. End Sub
    

复制代码

chxw68

详见附件。

tandke

xiangbaoan 发表于 2018-9-10 17:53
………………………………

你好，我发现当一行数据中有一个单元格没有数据时会排序出0，可以可以避开这样没有数据的单元格排序呢，谢谢

tandke

chxw68 发表于 2018-9-10 18:19
详见附件。

你好，我发现当一行数据中有一个单元格没有数据时会排序出一个空值在第一位，可以可以避开这样没有数据的单元格排序，直接在当行中有数据的单元格之间排序呢，谢谢

xiangbaoan

tandke 发表于 2018-9-10 18:42
你好，我发现当一行数据中有一个单元格没有数据时会排序出一个空值在第一位，可以可以避开这样没有数据的 ...

d(Val(ar(r, c))) = ""
改为
If Len(ar(r, c)) Then d(ar(r, c)) = ""

chxw68

修改好了。

tandke

chxw68 发表于 2018-9-10 18:47
修改好了。

谢谢你的回复，好像还是有点问题，当一行里只有一个数时，它排序出来竞然一个数都没有