如何快速把多個excel表合併成一個excel表

首先我們要有自己的excel數據，並且我們需要的是microsoft excel，WPS沒有這些負責的功能。比如我下面舉例的，我自己有205頁的數據需要合併，如圖所示。

看到這麼多數據頁要合併，如果是複製粘貼的話，工作量就很大了。我們現在開始合併，首先要在最前頁新建一個工作表。如圖：

在新建的sheet表中「右鍵」，找到「查看代碼」，然後看到宏計算界面。如圖所示：

看到宏計算界面，我們就只需要把下面的代碼複製進去，代碼如下，效果如下：

Sub 合併當前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

   If Sheets(j).Name <> ActiveSheet.Name Then

       X = Range("A65536").End(xlUp).Row + 1

       Sheets(j).UsedRange.Copy Cells(X, 1)

   End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "當前工作簿下的全部工作表已經合併完畢！", vbInformation, "提示"

End Sub

做完上面的事情，然後只需要點擊工具欄上面的「運行」下的「運行子過程/用戶窗體」就可以了，合併完之後會有提示。提示完成之後就可以把宏計算界面關閉了。如圖所示：

合併後的效果如下圖，我們看到的是合併之後有8000多行，就是205頁合併後的結果。謝謝。如有疑問，請留言。