利用excel宏計算快速合并單個excel表中的多個sheet工作頁

發(fā)布時間：2016-03-10 17:04:57 作者：佚名

有這么一種情況，就是我們有很多張excel，而且excel表里面的公式基本一樣，我們就想快速的把這些excel合并在一起，意思在合并在一個excel頁面，這樣可以方便我們分析和統(tǒng)計，其實(shí)利用excel表的宏計算就可以實(shí)現(xiàn)。下面我們就來一起解決這個問題

很多朋友會遇到這樣的問題，就是很有很多頁的數(shù)據(jù)，少的有幾十頁，多的可能有幾百頁，然后需要合并到一個頁面做數(shù)據(jù)分析，如果一頁頁的復(fù)制粘貼的話，就比較麻煩。下面我就介紹一種利用excel的宏計算來解決這個問題，有需要的朋友可以參考一下哦，希望能對大家有所幫助！

Excel2003綠色版 EXCEL2003精簡綠色版 (附excel2003綠色工具)

類型：辦公軟件
大小：13.3MB
語言：簡體中文
時間：2012-06-19

查看詳情

方法/步驟

首先我們要有自己的excel數(shù)據(jù)，并且我們需要的是microsoft excel，WPS沒有這些負(fù)責(zé)的功能。比如我下面舉例的，我自己有205頁的數(shù)據(jù)需要合并，如圖所示。

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

看到這么多數(shù)據(jù)頁要合并，如果是復(fù)制粘貼的話，工作量就很大了。我們現(xiàn)在開始合并，首先要在最前頁新建一個工作表。如圖：

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

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

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

看到宏計算界面，我們就只需要把下面的代碼復(fù)制進(jìn)去，代碼如下，效果如下：

復(fù)制代碼

代碼如下:

Sub 合并當(dāng)前工作簿下的所有工作表()
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 "當(dāng)前工作簿下的全部工作表已經(jīng)合并完畢！", vbInformation, "提示"
End Sub

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