展開全部

可以利用VBA快速把多個excel表合併成一個excel表

軟體版本：Office2007

方法如下：

1.當前工作簿中有多個工作表，結構都一樣如下所示，當裡面的資料不一樣，將它們全部合併到當前工作表中：

2.Alt+F11，開啟宏介面，輸入如下程式碼：

Sub m()

For Each sh In Sheets "遍歷每個工作表，提取資料

If

sh.Name

<> "Sheet1" Then "排除當前工作表

sh.Range("A2:C" & sh.Range("A65536").End(3).Row)

.Copy

Range("A" & Range("A65536").End(3)

.Row

+ 1) "將工作表中的所有資料複製到當前工作表最後一行的下一行中

快速把多個excel表合併成一個excel表步驟如下：

1、把多個excel表格放在同一資料夾裡。

2、新建一個excel表格。

4、彈出宏計算介面，將程式碼複製進去。

可以利用VBA快速把多個excel表合併成一個excel表

軟體版本：Office2007

方法如下：

1.當前工作簿中有多個工作表，結構都一樣如下所示，當裡面的資料不一樣，將它們全部合併到當前工作表中：

2.Alt+F11，開啟宏介面，輸入如下程式碼：

Sub m()

For Each sh In Sheets "遍歷每個工作表，提取資料

If

sh.Name

<> "Sheet1" Then "排除當前工作表

sh.Range("A2:C" & sh.Range("A65536").End(3).Row)

.Copy

Range("A" & Range("A65536").End(3)

.Row

+ 1) "將工作表中的所有資料複製到當前工作表最後一行的下一行中

End If

Next

End Sub

3.F5執行程式碼，返回Excel得到結果如下，工作表合併完成：