同一個excel檔案中如何合併多個sheet？

Question

同一個excel檔案中有五六十個sheet，每一個sheet的格式都一樣，

例如

sheet1 sheet2

A B C A B C

姓名 性別 年齡 姓名 性別 年齡

1 小明 男 22 1 小英 女 24

2 小強 男 23 2 小華 女 25

我想弄成

sheet3

A B C

姓名 性別 年齡

1 小明 男 22

2 小強 男 23

3 小英 女 24

4 小華 女 25

因為有五六十個sheet，所以不可能用複製貼上的 = ="

請問有什麼好方法嗎？

Answer 1

Favorite Answer

這個要使用VBA，請參考下列方法：

1.請在有資料的工作表最後方新增一個工作表，並在第一列從 A1 開始輸入「姓名」、「性別」、「年齡」。(假設這個工作表名稱是 Sheet3 ，注意必須是最後一個工作表)

2.在 Sheet3 利用控制工具箱製作指令按鈕，在指令按鈕的程式碼如下：

'螢幕不閃爍

Application.ScreenUpdating = False

'從第1個工作表至最後第2個工作表

For i = 1 To Sheets.Count - 1

'第1個工作表為作業工作表

Sheets(i).Activate

'偵測工作表的總筆數

Sheets(i).Range("A65536").End(xlUp).Select

acrow = ActiveCell.Row

'選取 A2到最後儲存格

Sheets(i).Range(Sheets(i).Cells(2, 1), Sheets(i).Cells(acrow, 3)).Select

'複製選取的範圍

Selection.Copy

'Sheet3工作表為作業工作表

Sheets("Sheet3").Activate

'偵測Sheet3 目前的總筆數

Sheets("Sheet3").Range("A65536").End(xlUp).Select

'選取最末筆的下方 A 欄的儲存格

Cells(ActiveCell.Row + 1, 1).Select

'貼上

ActiveSheet.Paste

'下一個工作表

Next i

'螢幕恢復閃爍

Application.ScreenUpdating = True

Msgbox "作業完成。"

Answer 2

另外 ......

重複資料, 重複執行 ... 的問題 ...

Answer 3

提醒版主有關conan ( 初學者 2 級 )的回答

要把程式碼中Sheets("Sheet3")的Sheet3要改成你想要彙整的工作表名稱

conan 是依據你的例子做回答,因此你要稍做更改

而且彙整的工作表要放在最後一個

Answer 4

最簡單的方法在sheet3A1儲存格打上=Sheet1!A1在十字標下按住往右拉，再往下拉，拉到sheet1沒資料，接續sheet2的資料=Sheet2!A1在十字標下按住往右拉，再往下拉，其它類推。