Question

VBA 语言Dim arr(), brr 语句一直提示错误，找不到工程或库，请大家伙帮忙看下

Dim arr(), brr
x = Range("a65536").End(xlUp).Row
y = Range("c65536").End(xlUp).Row
brr = Range("a1:b" & x)
ReDim arr(1 To x, 1 To 2)
For i = 1 To x
s1 = Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(i, 1)), Cells(i, 1))
For j = 1 To y
s2 = Application.WorksheetFunction.CountIf(Range(Cells(1, 3), Cells(j, 3)), Cells(j, 3))
If Cells(i, 1) = Cells(j, 3) And s1 = s2 Then arr(i, 1) = Cells(j, 3): arr(i, 2) = Cells(j, 4)
Next j
Next i
每次都是在第二行那里出问题
之前在2003里面是没问题的，在2007就出问题了

Answer 1

应该是设置的问题吧？你加上x，y的声明就好了，不要偷懒嘛~

追问

不行，我加上后仍然提示找不到工程或库

追答

那麻烦上全部的代码，单就目前的代码， 没问题。
最好能上传附件。