Vba工作表中单元格内容写入模板表格对应的单元格

在VBA中，如果你想要将工作表中的单元格内容写入到另一个工作簿的模板表格对应单元格，你可以使用`With`语句结合`Worksheets`和`Range`对象。假设模板工作表名为"TemplateSheet"，模板表格位于该工作簿的"A1"单元格，并且你想从源工作簿的Sheet1中复制数据。

下面是一个简单的示例，展示了如何实现这一过程：

Sub CopyDataToTemplate()
    Dim sourceSheet As Worksheet ' 源工作表
    Set sourceSheet = ThisWorkbook.Worksheets("Sheet1") ' 更改为你实际的工作表名称
    
    Dim destinationSheet As Worksheet ' 目标模板工作表
    Set destinationSheet = ThisWorkbook.Worksheets("TemplateSheet") ' 更改为模板工作表名称

    Dim sourceDataRange As Range ' 源数据范围，例如 A1:C10
    Set sourceDataRange = sourceSheet.Range("A1:C10")

    ' 遍历源数据范围，写入模板表格对应单元格
    With destinationSheet ' 设置目标工作表
        For Each cell In sourceDataRange ' 遍历源数据单元格
            .Cells(cell.Row, cell.Column) = cell.Value ' 把源单元格的值写入模板对应位置
        Next cell
    End With
End Sub

在这个例子中，源工作表的每个单元格都会被复制到模板工作表中相应的位置上。