把格式相同的sheet1 sheet2的資料放在sheet3里如何用VAB表達

你可以使用 VBA 中的循环结构和条件语句来实现将格式相同的 Sheet1 和 Sheet2 的数据合并到 Sheet3 中。以下是一个示例代码：

Sub MergeData()
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Dim row1 As Long, row2 As Long, row3 As Long
    Dim col As Long
    
    '获取Sheet1、Sheet2和Sheet3对象
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    Set ws3 = ThisWorkbook.Worksheets("Sheet3")
    
    '将Sheet1和Sheet2中的数据复制到Sheet3中
    row3 = 1 '从第1行开始粘贴
    For Each ws In Array(ws1, ws2)
        row1 = 1 '从第1行开始读取
        Do Until ws.Cells(row1, 1) = "" '读取到空行停止
            '判断是否是第一行，如果是则复制表头
            If row1 = 1 Then
                ws.Range("A1").EntireRow.Copy Destination:=ws3.Cells(row3, 1)
                row3 = row3 + 1
            End If
            
            '复制该行数据
            For col = 1 To ws.Cells(row1, Columns.Count).End(xlToLeft).Column
                ws3.Cells(row3, col) = ws.Cells(row1, col)
            Next col
            
            row1 = row1 + 1
            row3 = row3 + 1
        Loop
    Next ws
End Sub

这段代码会将 Sheet1 和 Sheet2 中的数据和表头复制到 Sheet3 中，如果 Sheet1 和 Sheet2 的格式不同，则需要进行一些修改。请注意备份你的工作簿，以免代码执行错误导致数据丢失。