寫在前面，朋友前幾天找到我江湖救急，問我怎麼合併多張表格，雖然是計算機專業畢業的我但是真的沒做過幾張表格啊，最後找了好多網站的資料介紹，找到下面可行的方法，回饋給需要的朋友。

在一個excel檔案中如果存在幾張附表，就可以使用下面的VBA程式碼合併附表到一個主表中。

方法是先新建一個主表，右鍵最下面的主表，然後選擇檢視程式碼，貼入下面的程式碼。然後儲存執行即可發現已經合併成功。

方案一：

Sub main()

For Each sh In Sheets

If sh.Name <> "總表" Then

i = sh.Range("I65536").End(3).Row

k = Range("A65536").End(3).Row

sh.Range("A1:I50" & i).Copy Range("A" & k + 1)

End If

Next

End Sub
 

方案二：

Sub main()
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