合并两个工作表更改事件excel vba

Sub MergeWorksheets()
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Dim lastRow As Long
    
    ' 设置要合并的工作表
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    Set ws3 = ThisWorkbook.Worksheets.Add
    
    ' 复制第一个工作表的数据到新的工作表
    ws1.UsedRange.Copy Destination:=ws3.Range("A1")
    
    ' 找到第二个工作表的最后一行
    lastRow = ws3.Cells(ws3.Rows.Count, "A").End(xlUp).Row
    
    ' 复制第二个工作表的数据到新的工作表
    ws2.UsedRange.Copy Destination:=ws3.Range("A" & lastRow + 1)
    
    ' 删除原始的两个工作表
    Application.DisplayAlerts = False
    ws1.Delete
    ws2.Delete
    Application.DisplayAlerts = True
    
    ' 在合并完成后执行其他操作
    ' 这里可以添加你想要执行的代码
    
    ' 保存工作簿
    ThisWorkbook.Save
    
    ' 关闭Excel应用程序
    Application.Quit
End Sub