跟多同學都會遇見這樣的問題，一個文件夾中有很多相同類型但是數值不同的表格，如何能夠快速的把這些表格合并成一張表格呢？

那麼今天“跟我學WPS”簡單教大家一個方法，閑來無事就拿來分享給朋友們。

把想合并的這些表格在同一個文件夾中（不想合并的表格就别放在這個文件夾裡面了）

1. Sub 合并當前目錄下所有工作簿的全部工作表()

2. Dim MyPath, MyName, AWbName

3. Dim Wb As Workbook, WbN As String

4. Dim G As Long

5. Dim Num As Long

6. Dim BOX As String

7. Application.ScreenUpdating = False

8. MyPath = ActiveWorkbook.Path

9. MyName = Dir(MyPath & "\" & "*.xls")

10. AWbName = ActiveWorkbook.Name

11. Num = 0

12. Do While MyName <> ""

13. If MyName <> AWbName Then

14. Set Wb = Workbooks.Open(MyPath & "\" & MyName)

15. Num = Num 1

16. With Workbooks(1).ActiveSheet

17. .Cells(.Range("B65536").End(xlUp).Row 2, 1) = Left(MyName, Len(MyName) - 4)

18. For G = 1 To Sheets.Count

19. Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row 1, 1)

20. Next

21. WbN = WbN & Chr(13) & Wb.Name

22. Wb.Close False

23. End With

24. End If

25. MyName = Dir

26. Loop

27. Range("B1").Select

28. Application.ScreenUpdating = True

29. MsgBox "共合并了" & Num & "個工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

30. End Sub

複制代碼

結束語

今天和大家分享“如何合并同一個文件夾下的多個表格”比較複雜，但是實際中确實非常實用，親愛的小夥伴你學會了嗎？趕緊動手試一試，如果你認為“跟我學WPS”還算可以給您一點點的啟發和幫助，請幫我們點贊、收藏、轉發給其他小夥伴共享。

,

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!

查看全部