协助创建基于模板生成新工作表的 Excel 宏

前言：这不是一个完整的答案，但在评论中写的文字太多。

听起来您想使用 For Loop 编写代码以使用 Range.Copy 复制一列数据。

我没有足够的信息来真正编写示例程序，但我无法猜测结构如下所示：

 Sub FillFromTemplate()
    Dim NewWB As Workbook,NewWS As Worksheet
    
    Set NewWB = Application.Workbooks.Add
    'Creates a new workbook
    
    ThisWorkbook.Sheets("Template").Copy after:=NewWB.Sheets(NewWB.Sheets.Count)
    'Copies the template over to the new workbook
    
    Set NewWS = NewWB.Sheets(NewWB.Sheets.Count)
    'Grabs our new sheet so we can edit the data
    
    ThisWorkbook.Sheets("Original").columns("E").Copy DesTination:=NewWs.columns("E")
    'Copy over column E from the desired sheet to the new sheet.
    
    For i = 2 To NewWs.Cells(Rows.Count,"E").End(xlUp).Row * 2 Step 2
    'iterate through the column on the new sheet,adding spaces
        NewWs.Rows(i + 1).Insert shift:=xlShiftDown
        'Somewhat inefficient,but simple and easy to implement.
        'A better but more complex method would be pasTing the data while skipping cells
        
        If NewWs.Cells(i,"E") <> "" And IsNumeric(NewWs.Cells(i,"E")) Then
            'If its a number,put the value in the cell below with the sign flipped.
            NewWs.Cells(i + 1,"E") = NewWs.Cells(i,"E").Value * -1
        End If
    Next i
End Sub

显然，这缺少要立即在您的工作簿中运行的关键信息。但我希望它具有教育意义，可以帮助您开始自己编写代码。