用vba写一段汇总各sheet至目标sheet的代码

### 回答1：
下面是一段示例代码，可以把各个工作表中的数据汇总到一个目标工作表中：

Sub CopyDataFromSheetsToMasterSheet()

Dim ws As Worksheet
Dim destSheet As Worksheet

Set destSheet = ThisWorkbook.Sheets("目标工作表")

For Each ws In ThisWorkbook.Sheets
    If ws.Name <> "目标工作表" Then
        ws.Range("A1:Z1000").Copy destSheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    End If
Next ws

End Sub

这段代码会循环所有的工作表，除了目标工作表，并将其中的数据从A1到Z1000复制到目标工作表的最后一行下面一行。

### 回答2：
VBA是Visual Basic for Applications的缩写，是一种用于编写程序的宏语言，被广泛应用于Microsoft Office软件中。下面是一个示例，展示如何使用VBA编写一段代码将多个工作表中的数据汇总至目标工作表。

首先，我们需要打开Visual Basic Editor。在Excel中，可以按下Alt+F11来打开VBE窗口。在VBE窗口中，找到您要进行编程的工作簿。

接下来，我们可以开始编写代码。以下是一段简单的VBA代码，用于将多个工作表的数据汇总至目标工作表：

Sub 汇总数据()
    Dim 目标工作表 As Worksheet
    Dim 源工作表 As Worksheet

    Set 目标工作表 = ThisWorkbook.Sheets("目标工作表名称") '将 "目标工作表名称" 替换成您实际的目标工作表名称
    
    '遍历所有工作表
    For Each 源工作表 In ThisWorkbook.Sheets
        '排除目标工作表，只处理其他工作表
        If 源工作表.Name <> 目标工作表.Name Then
            '将源工作表的数据复制到目标工作表的下一行
            源工作表.UsedRange.Copy Destination:=目标工作表.Cells(目标工作表.Cells(Rows.Count, "A").End(xlUp).Row + 1, 1)
        End If
    Next 源工作表
End Sub

代码中的注释提供了相关说明。您需要将"目标工作表名称"替换为实际的目标工作表名称，这样代码就会将其他所有工作表中的数据复制到目标工作表的下一行。您可以运行这段代码，通过点击运行按钮或按下F5来执行汇总操作。

请注意，这段代码假设所有工作表都位于同一工作簿中。如果您的工作表分布在不同的工作簿中，您需要做一些调整才能正确执行代码。

希望这个简单的示例可以帮助您理解如何使用VBA编写一段汇总各工作表至目标工作表的代码。如果有任何疑问，请随时提问。