如何快速合并多个工作薄用于数据分析

鱼鱼3683

如何快速合并多个工作薄用于数据分析，求宏代码

有4地

1. Sub CombineWorkbooks()
   
2. Dim FilesToOpen, ft
   
3. Dim x As Integer
   
4. Application.ScreenUpdating = False
   
5. On Error GoTo errhandler
   
6. 
   
7. FilesToOpen = Application.GetOpenFilename _
   
8. (FileFilter:="Micrsofe Excel文件(*.xlsx), *.xls", _
   
9. MultiSelect:=True, Title:="要合并的文件")
   
10. 
    
11. If TypeName(FilesToOpen) = "boolean" Then
    
12. MsgBox "没有选定文件"
    
13. 'GoTo errhandler
    
14. End If
    
15. 
    
16. x = 1
    
17. While x <= UBound(FilesToOpen)
    
18. Set wk = Workbooks.Open(Filename:=FilesToOpen(x))
    
19. 
    
20. wk.Sheets().Move after:=ThisWorkbook.Sheets _
    
21. (ThisWorkbook.Sheets.Count)
    
22. x = x + 1
    
23. Wend
    
24. 
    
25. MsgBox "合并成功完成！"
    
26. 
    
27. errhandler:
    
28. ' MsgBox Err.Description
    
29. 'Resume errhandler
    
30. End Sub

复制代码

鱼鱼3683

亲测有效，但是这个是把多个工作簿合并到同一个工作簿中不同的工作表，请问能否合并到同一张工作表？

masterswx

学习一下！！