对于下一个VBA，跳过一半

Question

我正在尝试在Excel中创建一个简单的VBA，以复制我试图重新组合的一些数据。我似乎在某些方面工作得很好，但每次都跳过一行和一列！问题必须在双重For..Next中的某处..我正在使用，但我找不到它：

我得到的结果：

For i = 1 To AantalPag 'HIERRR
    GezSite = BeginCel.Offset(i + 1) 'HIERRR
    For iweek = 1 To AantalWeek
        GezWeek = BeginCel.Offset(0, iweek)
            For i2 = 1 To AantalWeekData
                If BeginCelData.Offset(i2 - 1) = GezWeek Then
                    For i3 = 1 To AantalSitesData
                        If BeginCelData.Offset(0, i3) = GezSite Then
                           Sommetje = Sommetje + BeginCelData.Offset(i2 - 1, i3 - 1)                            
                        Else
                           i3 = i3 + 1
                        End If
                    Next i3
                    'BeginCel.Offset(i, iweek) = Sommetje
                    'Sommetje = 0
                Else
                    i2 = i2 + 1
                End If
            Next i2
            BeginCel.Offset(i, iweek) = Sommetje
            Sommetje = 0
        iweek = iweek + 1
    Next iweek
    i = i + 1
Next i

Answer 1

以下代码将在立即窗口中打印1到100之间的数字。

For n = 1 to 100
    Debug.Print n
Next n

下面的代码将在立即窗口中打印每隔一个数字。这是因为n增加了n = n + 1，然后再增加Next n。

For n = 1 to 100
    Debug.Print n
    n = n + 1
Next n