快速將Excel表中的多個sheet工作表合併成一個工作表

       我們常會遇到這樣的問題，就是很有很多工作表的數據，少的有幾十個工作表，多的可能有幾百個工作表，然後需要合併到一個工作表來做數據分析，如果一個個工作表的複製粘貼的話，就比較費時費力。下面微元老師給大家介紹一種利用excel的宏計算來解決此問題的小妙招：

「 以microsoft office 2007為例」

1.首先我們要有自己的excel數據：

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

3.在新建的Sheet1表中的Sheet1處「右鍵」,找到「查看代碼」後單擊「左鍵」，然後就能看到宏計算界面。如圖所示：

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

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

5.完成上面的步驟，然後只需要點擊工具欄上面的「運行」下的「運行子過程/用戶窗體」或者直接按鍵盤上的"F5"就可以了實現多個工作表合併成一個工作表，合併完之後會有提示。提示完成之後就可以把宏計算界面關閉了。如圖所示：

6.合併後的結果，我們將看到的是合併之後有1000多行的一個工作表（就是由20頁工作表合併成一個工作表的結果）。

文字 | 何紹生

圖片製作 | 何紹生

長按識別下方二維碼，即可關注

微元文化公眾號

    ▼