在转到下一个工作表之前重置行增量

Question

我有 2 个练习册。一个 wb 充当数据库（分为用户），而另一个用于根据日期从该 wb 中提取数据。我循环了宏，起初它似乎只从第一个 sheet 中提取数据。 见下面的注释

Dim y As Integer
Dim r As Integer
Dim WS_Count As Integer
Dim I As Integer

r = CollateSh3.Range("D" & Rows.Count).End(xlUp).Row + 1
y = 3
WS_Count = wbLog.Worksheets.Count
For I = 1 To WS_Count
    Do Until wbLog.Sheets(I).Range("A" & y) = ""
    If wbLog.Sheets(I).Range("B" & y).Value = RequiredDate Then

        CollateSh3.Range("A" & r).Value = wbLog.Sheets(I).Range("D" & y).Value
        CollateSh3.Range("C" & r).Value = wbLog.Sheets(I).Range("F" & y).Value
        CollateSh3.Range("D" & r).Value = wbLog.Sheets(I).Range("G" & y).Value
        CollateSh3.Range("E" & r).Value = wbLog.Sheets(I).Range("H" & y).Value
        CollateSh3.Range("F" & r).Value = wbLog.Sheets(I).Range("I" & y).Value
        CollateSh3.Range("G" & r).Value = wbLog.Sheets(I).Range("J" & y).Value
        CollateSh3.Range("H" & r).Value = wbLog.Sheets(I).Range("K" & y).Value
        CollateSh3.Range("I" & r).Value = wbLog.Sheets(I).Range("L" & y).Value
        CollateSh3.Range("K" & r).Value = wbLog.Sheets(I).Range("N" & y).Value
        r = r + 1
        y = y + 1

    Else
        y = y + 1
    End If
    Loop

    'MsgBox wbLog.Sheets(I).Name
Next I

编辑：我想我可能有有用的附加信息。看来宏不会跳过。当我尝试向数据库文件添加更多条目时，它会提取数据，只是它从前一个 sheet 结束的行开始。例如，如果它在 sh1 的第 9 行结束，则代码从 sh2 的第 10 行开始。

如何在进入下一个 sheet 之前重置增量？

Answer 1

这是编辑后的代码。我选择在循环结束后添加它，因为那样我会记住它以供将来参考。谢谢@PatricK！

        Dim y As Integer
        Dim r As Integer
        Dim WS_Count As Integer
        Dim I As Integer
        r = CollateSh3.Range("D" & Rows.Count).End(xlUp).Row + 1
        y = 3
        WS_Count = wbLog.Worksheets.Count

        For I = 1 To WS_Count
            Do Until wbLog.Sheets(I).Range("A" & y) = ""
            If wbLog.Sheets(I).Range("B" & y).Value = RequiredDate Then

            CollateSh3.Range("A" & r).Value = wbLog.Sheets(I).Range("D" & y).Value
            CollateSh3.Range("C" & r).Value = wbLog.Sheets(I).Range("F" & y).Value
            CollateSh3.Range("D" & r).Value = wbLog.Sheets(I).Range("G" & y).Value
            CollateSh3.Range("E" & r).Value = wbLog.Sheets(I).Range("H" & y).Value
            CollateSh3.Range("F" & r).Value = wbLog.Sheets(I).Range("I" & y).Value
            CollateSh3.Range("G" & r).Value = wbLog.Sheets(I).Range("J" & y).Value
            CollateSh3.Range("H" & r).Value = wbLog.Sheets(I).Range("K" & y).Value
            CollateSh3.Range("I" & r).Value = wbLog.Sheets(I).Range("L" & y).Value
            CollateSh3.Range("K" & r).Value = wbLog.Sheets(I).Range("N" & y).Value

            r = r + 1
            y = y + 1

            Else
            y = y + 1
            End If
            Loop

            y = 3 'to reset increment before moving on to next sheet

        Next I

在转到下一个工作表之前重置行增量

Reset row increment before going to next worksheet

excel

vba

loops

for-loop