方法如下：
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得到結果如下，工作表合併完成：
方法如下：
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得到結果如下，工作表合併完成：