多维数组去除重复数

xjgcyq

一共七个工作表
每行六个数共7行
把每行重复的数去掉
详见附件，期待各位老师可以给与帮助，感谢！

jiminyanyan

结果和  先汇总后去重的效果一样？

xjgcyq

这知道，数据量大，多个文件的，所有想用VBA,最好是先存入多维数组，再去重复，谢谢

tudarong

使用字典+数组可以去重，你试下

tudarong

数组去重-1.rar (20.22 KB, 下载次数: 32)

2018-7-14 23:32 上传

点击文件名下载附件

利用字典去重，请参考。

1. Sub test()
   
2.     Dim dic As Object
   
3.     Dim Arr, i%, j%
   
4.     Dim rng, rng1 As Range
   
5.     For j = 1 To 7
   
6.         Set dic = CreateObject("scripting.dictionary")
   
7.         Arr = Sheet1.Range("A" & j & ":F" & j)
   
8.         For i = 1 To 6
   
9.             dic(Arr(1, i)) = ""
   
10.         Next
    
11.         Range("K" & j).Resize(1, dic.Count) = dic.keys
    
12.     Next
    
13. End Sub
    

复制代码

jiminyanyan

tudarong 发表于 2018-7-14 23:32
利用字典去重，请参考。

代码不错。。。。

jiminyanyan

tudarong 发表于 2018-7-14 23:32
利用字典去重，请参考。

Set dic = CreateObject("scripting.dictionary")
这句可以放到循环外面。。。

tudarong

jiminyanyan 发表于 2018-7-15 15:24
Set dic = CreateObject("scripting.dictionary")
这句可以放到循环外面。。。

刚重新确认了一遍，
因为是将每一行装入字典去重，如果把
Set dic = CreateObject("scripting.dictionary")
放到循环外面，会导致结果出错。

jiminyanyan

tudarong 发表于 2018-7-15 15:31
刚重新确认了一遍，
因为是将每一行装入字典去重，如果把
Set dic = CreateObject("scripting.dictiona ...

Option Explicit

Sub test()
    Dim dic As Object
    Dim Arr, i%, j%
    Dim rng, rng1 As Range
     Set dic = CreateObject("scripting.dictionary")
    For j = 1 To 7
        Arr = Sheet1.Range("A" & j & ":F" & j)
        For i = 1 To 6
            dic(Arr(1, i)) = ""
        Next
        Range("K" & j).Resize(1, dic.Count) = dic.keys
        dic.RemoveAll
    Next
End Sub

tudarong

jiminyanyan 发表于 2018-7-15 15:40
Option Explicit

Sub test()

将Set dic = CreateObject("scripting.dictionary")移到循环外面，
使用removeall清空字典，用于下一次循环数据重新装入，程序看起来更规范。

我将Set dic = CreateObject("scripting.dictionary")放到循环内，发现每次会重置字典再写入，
也能达到效果，但是不知道这样写是否规范。
以后再遇到这种情况，我会将Set dic = CreateObject("scripting.dictionary")移到循环外面。