数据字典中remove用的不对，麻烦帮忙修改

bixiaoxiang

1. Sub test()
   
2. Dim dic
   
3. Dim i
   
4. Set dic = CreateObject("Scripting.Dictionary")
   
5.     For i = 1 To Range("A10000").End(xlUp).Row
   
6.         dic(Range("A" & i).Value) = ""
   
7.     Next i
   
8.         For i = 1 To Range("B10000").End(xlUp).Row
   
9.             dic.Remove (Range("B" & i).Value)
   
10.         Next i
    
11.             Range("C" & i).Resize(dic.Count, 1) = Application.Transpose(dic.keys)
    
12. End Sub
    

复制代码

不知道应该如何修改，拜托帮忙

未忘初心

Sub test()
Dim dic
Dim i
Set dic = CreateObject("Scripting.Dictionary")
    For i = 1 To Range("A10000").End(xlUp).Row
        dic(Range("A" & i).Value) = ""
    Next i
        For i = 1 To Range("B10000").End(xlUp).Row
            dic.Remove Range("B" & i).Value
        Next i
            Range("C" & i).Resize(dic.Count, 1) = Application.Transpose(dic.keys)
End Sub

这样试试

曹银强

对A列去重复，REMOVE的是B列

bixiaoxiang

未忘初心 发表于 2017-6-26 13:34
Sub test()
Dim dic
Dim i

似乎不太行

未忘初心

bixiaoxiang 发表于 2017-6-26 13:39
似乎不太行

没附件 只能帮你到这里 了

山菊花

Sub test()
    Dim dic
    Dim i
    Set dic = CreateObject("Scripting.Dictionary")
    For i = 1 To Range("A10000").End(xlUp).Row
        dic(Range("A" & i).Value) = ""
    Next i
        
    For i = 1 To Range("B10000").End(xlUp).Row
        If dic.exists(Range("B" & i).Value) Then
            dic.Remove (Range("B" & i).Value)
        End If
    Next i
    Range("c:c").ClearContents
    If dic.Count > 0 Then
        Range("C" & i).Resize(dic.Count, 1) = Application.Transpose(dic.keys)
    End If
    MsgBox "完毕"
End Sub

bixiaoxiang

山菊花 发表于 2017-6-26 14:49
Sub test()
    Dim dic
    Dim i

worked。。。３Q