VBA 字典 关键字类型不匹配--大神帮忙检查代码

wllxf

大神们字典函数，使用数字作为关键字，一运行会出现字类型不匹配，如图
代码标黄的会报错“字类型不匹配”，请大神帮忙检查哈
Sub sji()
    Dim d, n, arr, brr
    Set d = CreateObject("Scripting.Dictionary")
    n = Sheet2.Cells(Rows.Count, 6).End(xlUp).Row
    arr = Sheet2.Range("F2:F" & n)
    For i = 1 To n - 1
       d(arr(i, 1)) = ""
    Next
    s = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    brr = Sheet1.Range("A2:A" & s)
    For i = 1 To s - 1
        If d.exists(brr(i, 1)) Then
            Sheet1.Cells(i + 1, 2) = "YES"
        Else
            Sheet1.Cells(i + 1, 2) = "NO"
        End If
    Next
End Sub

huang1314wei

你那个arr都不是一个数组，而是一个单元格的值，既然不是数组，你用arr(i,1)当然给你报类型不匹配

wllxf

huang1314wei 发表于 2018-6-8 22:48
你那个arr都不是一个数组，而是一个单元格的值，既然不是数组，你用arr(i,1)当然给你报类型不匹配

版主那要怎么修改！我试了redim arr（1 to n-1,1 to 1）也不行啊！版主帮忙改改！谢谢了！

lsc900707

多一点数字去测试代码看看。

wllxf

huang1314wei 发表于 2018-6-8 22:48
你那个arr都不是一个数组，而是一个单元格的值，既然不是数组，你用arr(i,1)当然给你报类型不匹配

谢谢版主，但是我redim arr(1to n-1,1 to 1)还是不行啊

wllxf

lsc900707 发表于 2018-6-9 06:22
多一点数字去测试代码看看。

谢谢版主  我试了哈 还是不行，该怎么改呢？

lsc900707

wllxf 发表于 2018-6-9 06:30
谢谢版主  我试了哈 还是不行，该怎么改呢？

工作表“2”中的数字太少，增加数字再测试。

wllxf

lsc900707 发表于 2018-6-9 06:32
工作表“2”中的数字太少，增加数字再测试。

这是为什么？谢谢版主

lsc900707

wllxf 发表于 2018-6-9 06:40
这是为什么？谢谢版主

2楼的解答你都没认真去就理解。

wllxf

lsc900707 发表于 2018-6-9 06:45
2楼的解答你都没认真去就理解。

Sub sji()
    Dim d, n, arr, brr
    Set d = CreateObject("Scripting.Dictionary")
    n = Sheet2.Cells(Rows.Count, 6).End(xlUp).Row
    For i = 2 To n
       d(Sheet2.Cells(i, 6).value) = ""
    Next
    s = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To s
        If d.exists(Sheet1.Cells(i, 1).value) Then
            Sheet1.Cells(i , 2) = "YES"
        Else
            Sheet1.Cells(i , 2) = "NO"
        End If
    Next
End Sub
大神 这个代码就可以 表2 一个数字也行，为什么