VBA循环复制数据行至模板并另存为文件的问题排查

• 源文件ApportionmentData.xlsm的Data工作表包含A:AJ列数据：A列为唯一公司名，B:AI为销售数据，AJ列为预定义的另存文件名。
• 需求：将每行数据（排除表头）复制到Template.xlsm的TBSource工作表第2行，随后按AJ列值另存为独立文件，每行对应一个单独文件。
• 当前问题：运行现有VBA代码时，每次迭代会累加数据（未覆盖TBSource工作表的第2行）。

现有代码中，复制目标单元格使用了随循环变量i递增的行号（Cells(i, 1)到Cells(i, 36)），导致每次循环会把数据写入第i行，而非固定覆盖第2行，最终造成数据累加。

Sub CreateOrganizers()
    Dim wbstart As Workbook, wbtarget As Workbook
    Dim strPath As String
    Dim i As Long
    Dim targetSheet As Worksheet
    
    strPath = ActiveWorkbook.Path
    Application.ScreenUpdating = False
    
    Set wbstart = ActiveWorkbook
    Set wbtarget = Workbooks.Open("C:\Users\Desktop\Macro\Template Organizer\Template.xlsm")
    Set targetSheet = wbtarget.Sheets("TBSource") ' 提前引用目标工作表，简化代码
    
    With wbstart.Sheets("Data")
        For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
            ' 清空目标第2行的A:AJ列，避免残留上一次数据
            targetSheet.Range("A2:AJ2").ClearContents
            ' 将当前行数据复制到目标工作表第2行的起始位置
            .Range(.Cells(i, 1), .Cells(i, 36)).Copy Destination:=targetSheet.Cells(2, 1)
            ' 按AJ列指定的文件名另存文件
            wbtarget.SaveAs Filename:=strPath & "\" & .Cells(i, 36).Value
        Next i
    End With
    
    ' 关闭模板文件，避免残留打开状态
    wbtarget.Close SaveChanges:=False
    Application.ScreenUpdating = True
    MsgBox "Finished"
End Sub

• 固定复制目标为targetSheet.Cells(2, 1)，确保每次数据都写入第2行，而非随循环递增行号。
• 增加targetSheet.Range("A2:AJ2").ClearContents，每次复制前清空目标行，彻底避免数据残留。
• 提前引用targetSheet，简化代码结构，提升可读性与运行效率。
• 循环结束后关闭模板文件，避免文件长期处于打开状态占用资源。

内容的提问来源于stack exchange，提问作者Mark