VBA语言编写一段按模板填写数据拆分工作表（将数据表的每一行数据填入到模板表，然后生成一个工作表）

VBA（Visual Basic for Applications）是一种强大的宏语言，可以用于自动化Excel操作。下面是一个简单的示例，展示了如何使用VBA按照模板填充新工作表：

Sub FillDataToTemplate()
    ' 定义源数据范围和目标模板工作表
    Dim sourceRange As Range
    Set sourceRange = Sheet1.Range('A1:D10') ' 假设源数据在Sheet1的A1至D10区域
    
    ' 定义模板工作表和目标工作表
    Dim templateSheet As Worksheet
    Set templateSheet = ThisWorkbook.Sheets("Template") ' 假设模板工作表名为"Template"
    
    Dim newRow As Long
    newRow = templateSheet.Cells(templateSheet.Rows.Count, 1).End(xlUp).Row + 1 ' 获取模板最后一行的下一行作为开始位置
    
    ' 遍历源数据并复制到模板
    For Each cell In sourceRange
        templateSheet.Cells(newRow, cell.Column) = cell.Value ' 将源数据复制到对应列
        newRow = newRow + 1 ' 移动到下一行
    Next cell
    
    ' 新建工作表并将数据插入
    Dim newSheetName As String
    newSheetName = "Output" ' 可以自定义新工作表名称
    Dim newSheet As Worksheet
    Set newSheet = ThisWorkbook.Sheets.Add(After:=templateSheet)
    newSheet.Name = newSheetName
    
    ' 将模板复制到新工作表
    templateSheet.Range("A1").CurrentRegion.Copy Destination:=newSheet.Range("A1")
    
    MsgBox "数据填充完成！"
End Sub

运行这段代码后，它会将`Sheet1`的数据从A1至D10填充到`Template`工作表，然后创建一个新的工作表并将填充后的数据粘贴到那里。