Excel VBA 合并多个sheet到一个sheet

Sub MergeSheetsSimplified()    Dim ws As Worksheet, dest As Worksheet    Dim destRow As Long, lastRow As Long    Dim lastCol As Integer    Set dest = ThisWorkbook.Worksheets("数据源")    dest.Range("A2:N99999").Clear  ' 只清除A:N区域    destRow = 2  ' 从第2行开始    For Each ws In ThisWorkbook.Worksheets        ' 排除目标表和数据分析表        If ws.Name <> dest.Name And ws.Name <> "数据分析表" And ws.Name <> "使用说明" Then            lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row            If lastRow > 0 Then                ' 从第2行开始复制（跳过标题行），只复制A:N列                If lastRow >= 2 Then                    ws.Range("A2:N" & lastRow).Copy dest.Cells(destRow, 1)                    destRow = destRow + (lastRow - 1)  ' 更新目标行                End If            End If        End If    Next ws    Application.ScreenUpdating = False    ThisWorkbook.RefreshAll  ' 刷新所有数据连接    Application.Calculate    ' 重新计算公式    Application.ScreenUpdating = True    MsgBox "数据合并完成！已排除'数据分析表'和'使用说明'。", vbInformationEnd Sub