[VBA ] 關於陣列索引超出範圍

[irga (努力不需言語)]

小弟的語法共分四個部份

Sub summary()

part1

    For x = 1 To 15
    If x Mod 4 = 2 Or x Mod 4 = 3 Then

        For y = 1 To 15
        If 0 < Worksheets(x & "號").Cells(3 * y + 7, 19).Value And IsNumeric(Worksheets(x & "號").Cells(3 * y + 7, 20).Value) Then
        Worksheets("統計").Cells(z + 2, 2).Value = "3月" & x & "日"
        Worksheets("統計").Cells(z + 2, 3).Value = Worksheets(x & "號").Cells(3 * y + 7, 3).Value
        Worksheets("統計").Cells(z + 2, 4).Value = Worksheets(x & "號").Cells(3 * y + 7, 19).Value
        z = z + 1
        End If
        Next y
        End If
        Next x
        z = 0

part2

    For x = 1 To 15
    If x Mod 4 = 2 Or x Mod 4 = 3 Then
        For y = 1 To 15
        If 0 < Worksheets(x & "號").Cells(3 * y + 69, 19).Value And IsNumeric(Worksheets(x & "號").Cells(3 * y + 69, 20).Value) Then
        Worksheets("統計").Cells(z + 2, 7).Value = "3月" & x & "日"
        Worksheets("統計").Cells(z + 2, 8).Value = Worksheets(x & "號").Cells(3 * y + 69, 3).Value
        Worksheets("統計").Cells(z + 2, 9).Value = Worksheets(x & "號").Cells(3 * y + 69, 19).Value
        z = z + 1
        End If
        Next y
        End If
        Next x
        z = 0

part3

    For x = 1 To 15
    If x Mod 4 = 1 Or x Mod 4 = 0 Then
        For y = 1 To 14
        If 0 < Worksheets(x & "號").Cells(3 * y + 7, 19).Value And IsNumeric(Worksheets(x & "號").Cells(3 * y + 7, 20).Value) Then
        Worksheets("統計").Cells(z + 2, 12).Value = "3月" & x & "日"
        Worksheets("統計").Cells(z + 2, 13).Value = Worksheets(x & "號").Cells(3 * y + 7, 3).Value
        Worksheets("統計").Cells(z + 2, 14).Value = Worksheets(x & "號").Cells(3 * y + 7, 19).Value
        z = z + 1
        End If
        Next y
        End If
        Next x
        z = 0

part4

    For x = 1 To 15
    If x Mod 4 = 1 Or x Mod 4 = 0 Then

        For y = 1 To 15
        If 0 < Worksheets(x & "號").Cells(3 * y + 69, 19).Value And IsNumeric(Worksheets(x & "號").Cells(3 * y + 69, 20).Value) Then
        Worksheets("統計").Cells(z + 2, 17).Value = "3月" & x & "日"
        Worksheets("統計").Cells(z + 2, 18).Value = Worksheets(x & "號").Cells(3 * y + 69, 3).Value
        Worksheets("統計").Cells(z + 2, 19).Value = Worksheets(x & "號").Cells(3 * y + 69, 19).Value
        z = z + 1
        End If
        Next y
        End If
        Next x

End Sub




當我part1~part4全部一起執行時
就會出現

執行階段錯誤'9'
陣列索引超出範圍

的字樣


可是當我讓part1~part2及part3~part4兩段分開執行時
就可以跑
而且再回去執行一次之後卻又可以了
是哪邊出了什麼錯嗎?
要怎樣更改好呢?

--
你喜歡的人，會一直離你遠去  我想離你而去
你討厭的人，會一直在你附近。

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 122.116.237.89
→ kimutaka:說真的,沒看到你的Excel檔. 你這樣敘述很難有人能幫你