配列のサイズは同じですが、添え字が範囲外です

Question

2つの配列（sheet1TempArrayおよびsheet2TempArray）が宣言され、同じサイズの102になります。以下のコードに示されているすべての不一致はpublic sheet1TempArray(), sheet2TempArray() as Stringのように宣言されています。

sheet1TempArrayの要素がsheet2TempArrayにあるかどうかをチェックしたいので、私はfollow関数を持っています。

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean 

    IsInArray = Not IsError(Application.Match(stringToBeFound, arr, 0)) 

End Function 

、私はしかし、それは=（sheet2TempArray（c）参照）、このエラーを示すに保持

この関数を呼び出す別のサブを有します。私は私のルーピングメソッドが間違っているのですか？

Answer 1

私は以前に気づいたはずの問題を発見しました。

For c = 1 To (Application.CountA(sheet2TempArray)-1) 

forループに-1を含めると問題が解決します。