Excel & OneNote 现已加入Copilot体验全家桶

在sheet3中实时合并sheet1和sheet2的内容。

=IFERROR(INDEX(Sheet1!$A$1:$Z$100, ROW()-ROW($A$1)+1, COLUMN()), IFERROR(INDEX(Sheet2!$A$1:$Z$100, ROW()-ROW($A$1)+1, COLUMN()), ""))

Sub MergeSheets()

  Dim ws As Worksheet

  Dim wsMerged As Worksheet

  Application.ScreenUpdating = False

  Set wsMerged = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))

  wsMerged.Name = "Merged"

  For Each ws In ThisWorkbook.Worksheets

    If ws.Name <> "Merged" Then

      ws.UsedRange.Copy wsMerged.Cells(wsMerged.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)

    End If

  Next ws

  Application.ScreenUpdating = True

End Sub