VBA 提示数组下标溢出。麻烦帮我看看代码哪里有问题。新手。请前辈多多照顾

Private Function Array_Across() As Variant

Table_Across = Array("A", "B", "C")

End Function

Sub TraverseList_Table()

Call Array_Across

Set sht1 = Worksheets("TraverseListTable")

sht1.Activate

End_Rows = sht1.Range("A77777").End(xlUp).Row

ReDim Table_Vertical(End_Rows) As Integer

For i = LBound(Table_Across) To UBound(Table_Across)

For j = LBound(Table_Vertical) To UBound(Table_Vertical)

If (Cells(i, j) = """") Then

MsgBox (Cells(i, j))

End If

Next

Next

End Sub

哪句下标溢出？如果是这句的话
If (Cells(i, j) = """") Then

改成：
If (Cells(i+1, j+1) = """") Then
MsgBox (Cells(i+1, j+1))

支持一下感觉挺不错的