多个嵌套循环和数组，下标超出范围

Question

仍然习惯于处理数组和循环。有人介意指出这个问题吗？

要查看它，它是一个简单的循环，检查第一张表中的 a1:a100 并根据每张表中的 b1:b100 检查它，然后在 Sheet1!c1:c100 中返回它的计数

提前致谢

 Private Sub TheLoops()

 Dim SearchArray()
 Dim SheetArray()
 Dim ColumArray()
 Dim ReturnArray()
 Dim ModCount As Long
 SearchArray = Sheet1.Range("a1:a100")
 SheetArray(0) = Sheet1
 SheetArray(1) = Sheet2
 SheetArray(2) = Sheet3
 ColumArray = ActiveSheet.Range("b1:b100")
 ReturnArray = Sheet1.Range("c1:c100")
 ModCount = 0

 For I = LBound(SearchArray) To UBound(SearchArray)
     For L = LBound(ReturnArray) To UBound(ReturnArray)
         For J = LBound(SheetArray) To UBound(SheetArray)
             For K = LBound(ColumArray) To UBound(ColumArray)
                 If SearchArray(I) = ColumArray(K) Then
                     ModCount = ModCount + 1
                 End If
             Next K
         Next J
     ReturnArray(L) = ModCount
     ModCount = 0
     Next L
 Next I

 End Sub

这对吗？

 SearchArray = Sheet1.Range("a1:a100").Value, LBound(SearchArray, 1)

 For I = SearchArray(I, LBound(SearchArray, 2)) to SearchArray(I, UBound(SearchArray, 2))

 etc etc etc

Answer 1

这个问题归结为.Range 有一个名为Value 的默认属性，它返回一个二维Variant。这与您分配给它的类型不兼容。

使用Dim SearchArray as Variant、SearchArray = Sheet1.Range("a1:a100").Value、LBound(SearchArray, 1)，后跟二维索引：SearchArray(I, LBound(SearchArray, 2))。

以类似的方式重构其他变量。