VBA-如何重置已定义的变量

我有一个如下的代码，我想在下一行的新循环开始时将“add”重置为1

Sub Group()
    DataBook = ThisWorkbook.Name
    Dim i As Long
    RowCount = 1
    RowCount2 = 1
    Add = 1
    For i = 19 To 1819
        If Workbooks(DataBook).Sheets("Template").Range("G" & i).IndentLevel = 8 Then
            Workbooks(DataBook).Sheets("Sheet1").Cells(RowCount, 2) = Workbooks(DataBook).Sheets("Template").Range("G" & i).Value
            RowCount = RowCount + 1
            If Workbooks(DataBook).Sheets("Template").Range("G" & i - Add).IndentLevel = 7 Then
                Workbooks(DataBook).Sheets("Sheet1").Cells(RowCount2, 1) = Workbooks(DataBook).Sheets("Template").Range("G" & i - Add)
                RowCount2 = RowCount2 + 1
                Add = Add + 1
            End If
        End If
    Next i
End Sub

---

切换这两条线路：

Add = 1
For i = 19 To 1819

即：

---

切换这两条线路：

Add = 1
For i = 19 To 1819

即：

---

... 现在读起来不好吗？。。。现在读起来不是很好吗？谢谢你的回复：）这确实有效，并将“add”设置为1。但是，add=add+1循环在此更改后不起作用。@LiangWu您确定add=add+1的位置吗？您是否尝试将其向下移动以查看是否得到了所需的结果？感谢您的回答：）这确实有效，并将“add”设置为1。但是，add=add+1循环在此更改后不起作用。@LiangWu您确定add=add+1的位置吗？你有没有试着把它再往下移一点，看看你是否得到了想要的结果？