字典相关问题，确定一列数据是否在另一列数据中，写了代码，不能用。

无锋舞风

需要查看F列数据是否在L列中，并在H列返回值1或0。写的代码如下：
sub ???1()
Dim Arr
Arr = Sheet1.Range("L1:L6024")
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Dim i
For i = 1 To UBound(Arr)
d(Arr(i)) = ""
Next i
Dim R As Long
R = Sheet1.Cells(65536, 1).End(xlUp).Row
Dim x As Long
Dim y
For x = 1 To R
y = Sheet1.Cells(x, 6)
If d.Exists(y) Then Sheet1.Cells(x, 8) = 1
Next x
Set d = Nothing
End Sub

iwangyi

d(Arr(i)) = ""
改为
d(Arr(i，1))

iwangyi

R = Sheet1.Cells(65536, 1).End(xlUp).Row
改为
R = Sheet1.Cells(65536, "H").End(xlUp).Row

iwangyi

d.Exists(y) Then Sheet1.Cells(x, 8) = 1
改为
d.Exists(y.value) Then Sheet1.Cells(x, 8) = 1
由于y是ceLLS是单元格对象

iwangyi

d.Exists(y) Then Sheet1.Cells(x, 8) = 1
改为
d.Exists(y.value) Then Sheet1.Cells(x, 8) = 1
由于y是ceLLS是单元格对象

chxw68

1. Sub test()
   
2.   Dim i, x, y, r
   
3.   Dim Arr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   Arr = Sheet1.Range("L1:L6024")
   
7.   For i = 1 To UBound(Arr)
   
8.     d(Arr(i, 1)) = ""
   
9.   Next i
   
10.   r = Sheet1.Cells(65536, 1).End(xlUp).Row
    
11.   For x = 1 To r
    
12.     y = Sheet1.Cells(x, 6)
    
13.     If d.Exists(y) Then
    
14.       Sheet1.Cells(x, 8) = 1
    
15.     End If
    
16.   Next x
    
17.   Set d = Nothing
    
18. End Sub
    
19. 
    

复制代码

chxw68

详见附件。

无锋舞风

iwangyi 发表于 2018-9-17 07:32
d.Exists(y) Then Sheet1.Cells(x, 8) = 1
改为
d.Exists(y.value) Then Sheet1.Cells(x, 8) = 1

还是不行呀，是不是有什么关键的地方没写对

iwangyi

请楼主参考褚老师回帖

无锋舞风

chxw68 发表于 2018-9-17 07:52

谢谢老师，我把代码放在button里，但是还是没有反应。