Excel多個sheet匯總到一個sheet

  在文件操作過程中,常常遇到如下幾種情況,如果數據量小,靠copy即可操作,如果數據量大,那簡單copy耗時且數據容易出錯,以下案例會分別介紹。

多個文件的第一個或多個sheet數據合併一個文件的一個sheet中。

Excel多個sheet匯總到一個sheet

一個或多個文件的sheet數據復制到一個文件中。

Excel多個sheet匯總到一個sheet

表內多個sheet匯總到一個Sheet。

Excel多個sheet匯總到一個sheet

按某一標題下的內容拆分成多個sheet。

Excel多個sheet匯總到一個sheet

案例展示

案例:本次介紹多sheet匯總到一個Sheet。

Excel多個sheet匯總到一個sheet

操作步驟如下(內行看門道, 外行直接復制運行):

Excel多個sheet匯總到一個sheet

1. 打開要復制其他sheet進來的Excel的文件。

2. 按ALT F11彈出代碼編輯框。

3. 復制如下代碼到編輯框中。

4. 點擊運行按鈕。

Excel多個sheet匯總到一個sheet

Sub Mergesheet()

Dim Endrow ‘定義參數

Dim i ‘定義參數

Application.ScreenUpdating = False

For i = 1 To Sheets.Count ‘從1開始到最後一個表循環

If Sheets(i).Name <> ActiveSheet.Name Then ‘忽略激活的表

Endrow = Range(‘A65536’).End(xlUp).Row

Sheets(i).UsedRange.Copy Cells(Endrow 1, 1) ‘其他表數據區復制到激活的表

End If

Next i

Range(‘B1’).Select ‘光標定位到B1單元格

Application.ScreenUpdating = True

MsgBox ‘Sheet合併完畢!’, vbInformation, ‘信息提示’ ‘完成後提示

End Sub

Excel職場精英

賽馬場上,給你一把威猛的弓箭~