DeepSeek：Excel，你已经长大了可以自动处理数据了

Sub MergeSheets()Application.ScreenUpdating = False' 关闭屏幕刷新，提升速度Application.Calculation = xlCalculationManual' 关闭自动计算Dim wsDest As WorksheetDim wsSrc As WorksheetDim lastRowSrc As LongDim lastRowDest As LongDim headerRow As Range' 创建或清空目标工作表On Error Resume NextSet wsDest = ThisWorkbook.Sheets("合并结果")If Err.Number <> 0 ThenSet wsDest = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))wsDest.Name = "合并结果"ElsewsDest.Cells.ClearContents' 清空原有数据End IfOn Error GoTo 0' 复制标题行（假设所有工作表结构一致）Set headerRow = ThisWorkbook.Sheets("Sheet1").Rows(1)headerRow.Copy Destination:=wsDest.Range("A1")' 循环处理每个工作表For Each wsSrc In ThisWorkbook.SheetsIf wsSrc.Name <> wsDest.Name And _ (wsSrc.Name = "Sheet1" Or wsSrc.Name = "Sheet2" Or wsSrc.Name = "Sheet3") ThenlastRowSrc = wsSrc.Cells(wsSrc.Rows.Count, "A").End(xlUp).Row' 获取数据最后一行lastRowDest = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row + 1' 目标表下一行' 复制数据（从第2行开始，跳过标题）wsSrc.Range("A2:J" & lastRowSrc).Copy _Destination:=wsDest.Range("A" & lastRowDest)End IfNext wsSrcApplication.ScreenUpdating = True' 恢复屏幕刷新Application.Calculation = xlCalculationAutomatic' 恢复自动计算MsgBox "合并完成！共合并 " & wsDest.UsedRange.Rows.Count - 1 & " 行数据。", vbInformationEnd Sub