Excel VBA合并两个工作表更改

Sub MergeWorksheets()
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long, lastRow3 As Long
    Dim i As Long
    
    ' 设置要合并的工作表
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")   ' 替换为第一个工作表的名称
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")   ' 替换为第二个工作表的名称
    
    ' 获取每个工作表的最后一行
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    
    ' 创建新的工作表来合并数据
    Set ws3 = ThisWorkbook.Worksheets.Add(After:=Worksheets(Worksheets.Count))
    ws3.Name = "MergedSheet"   ' 可以根据需要修改新工作表的名称
    
    ' 复制第一个工作表的数据到新工作表
    ws1.Range("A1").EntireRow.Copy Destination:=ws3.Range("A1")
    ws1.Range("A2:A" & lastRow1).Copy Destination:=ws3.Range("A2")
    
    ' 复制第二个工作表的数据到新工作表
    ws2.Range("A2:A" & lastRow2).Copy Destination:=ws3.Range("A" & lastRow1 + 2)
    
    ' 格式化新工作表的数据（可根据需要进行修改）
    ws3.Range("A1").Font.Bold = True
    ws3.Columns("A").AutoFit
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
    
    ' 可以根据需要添加其他的数据处理或格式化代码
    
    ' 弹出提示框，表示合并完成
    MsgBox "工作表已成功合并到新工作表！", vbInformation
End Sub