小拓 asked in 電腦與網際網路軟體 · 1 decade ago

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

同一個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,所以不可能用複製貼上的 = ="

請問有什麼好方法嗎?

4 Answers

Rating
  • 呆瓜
    Lv 5
    1 decade ago
    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 "作業完成。"

  • Anonymous
    1 decade ago

    另外 ......

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

  • 小花
    Lv 5
    1 decade ago

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

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

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

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

  • gain
    Lv 5
    1 decade ago

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

Still have questions? Get your answers by asking now.