判断数值是否在另一个表格存在时遇到下标越界的错误

jixianbin123

Sub fyExcelVBA()
Dim arr, brr, crr, i%, j%
Dim m%, n%
Dim o, p, r, s
Set d = CreateObject("scripting.dictionary")
arr = Sheet11.Range("a10:p" & Sheet11.[d65536].End(3).Row)
ReDim brr(1 To UBound(arr), 1 To 7)
For i = 1 To UBound(arr)
     d(arr(i, 1)) = arr(i, 1)
Next
With Worksheets("sheet1")
   If Not d.exists(arr(i, 1).Value) Then
     If arr(i, 4) <> "" Then
          If arr(i, 4) = "安装" Then
              n = n + 1
              brr(n, 1) = arr(i, 1)
              brr(n, 2) = arr(i, 2)
              brr(n, 5) = arr(i, 3)
              brr(n, 6) = arr(i, 6)
              r = arr(i, 15)
              s = arr(i, 16)
              brr(n, 7) = DateSerial(2018, r, s)
           End If
     End If
   End If
End With
Sheets("安装").Range("A" & Sheet1.Range("A65536").End(xlUp).Row + 1).Resize(UBound(brr), UBound(brr, 2)).ClearContents
Sheets("安装").Range("A" & Sheet1.Range("A65536").End(xlUp).Row + 1).Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub


--------------------------------------------------
我用这个代码想判断一下第一个表格的数值是否在第二个表格中存在，然后再运行程序，依旧会报下标越界的错误，求大神指导

chaohuahch

首先你代码的问题的很多。先说下表越界的问题。
i = 1   第一给for循环结束以后，后面的再用i的话，需要初始化。而且，应该使用另外一个for循环。
With Sheet1   工作表的引用方式错误。

其他最大的问题。
If Not d.exists(arr(i, 1)) Then  次IF判断毫无意义，因为之前字典的建立，就是用arr数组建立的，不可能查到不再字典里面的情况。按照意图，应该把代码修改成。If d.exists(arr(i, 1)) Then
   

jixianbin123

chaohuahch 发表于 2018-8-23 06:17
首先你代码的问题的很多。先说下表越界的问题。
i = 1   第一给for循环结束以后，后面的再用i的话，需要初 ...

这个是判断sheet11的第一列的数在sheet1上是否存在，如果不存在，则将它输出到sheet1，应该怎么改下合适呢，谢谢了