如何快速合併單個excel表中的多個sheet的工作頁

2019-12-07 14:15:03

很多朋友會遇到這樣的問題，就是很有很多頁的資料，少的有幾十頁，多的可能有幾百頁，然後需要合併到一個頁面做資料分析，如果一頁頁的複製貼上的話，就比較麻煩。下面我就介紹一種利用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

Range("B1").Select

Application.ScreenUpdating = True

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

End Sub

做完上面的事情，然後只需要點選工具列上面的「執行」下的「執行子過程/使用者表單」就可以了，合併完之後會有提示。提示完成之後就可以把巨集計算介面關閉了。如圖所示：

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