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