怎么把多个表格的内容整合到一个表格中

云淡风轻1234

请教各位大神，怎么才能把多个表格的内容整合到一个表格里去，如附件有5个格式一样的表格，需要把里面的内容整合到一个表格里，非常感谢！

cbtaja

1. Sub 合并csv工作薄()
   
2. Dim mypath$, myfile$, arr, r&, c&, wb As Object
   
3. mypath = ThisWorkbook.Path
   
4. myfile = Dir(mypath & "\*.csv")
   
5. Do While myfile <> ""
   
6.     Set wb = GetObject(mypath & "" & myfile)
   
7.     arr = wb.Worksheets(1).Range("A1").CurrentRegion.Offset(1)
   
8.     wb.Close False
   
9.     Set wb = Nothing
   
10.     r = UBound(arr)
    
11.     c = UBound(arr, 2)
    
12.     Me.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(r - 1, c) = arr
    
13.     myfile = Dir
    
14. Loop
    
15. MsgBox "It's OK!"
    
16. End Sub
    

复制代码

cbtaja

解压到需要合并的文件夹下，点按钮执行： 合并工作薄.rar (16.45 KB, 下载次数: 113)

2017-3-14 12:14 上传

点击文件名下载附件

Lovertdos

或者用excel拆分合并工具，傻瓜型软件