[已解决]文件夹下工作表内容复制汇总

xujunxujing

要年底了，需要汇总一个文件夹下多个工作表里面的内容，一个个打开-复制-粘贴，工作量太大，向程序员们请教如何使用VBA来代替重复工作~，记得群里面有位厉害的大哥，跪求大哥赐教~PS: 是复制如图所示标注抬头以下的内容

最佳答案

月排行榜 / 总排行榜

七彩屋

2016-12-17 19:07

data.rar (12.55 KB, 下载次数: 19)

2016-12-17 19:07 上传

点击文件名下载附件

跳转到最佳答案楼层

七彩屋

1. Sub qcw()
   
2.     Dim myPath$, myFile$, AK As Workbook
   
3.     Application.ScreenUpdating = False
   
4.        Sheet1.UsedRange.Offset(1, 0).Clear
   
5.     myPath = ThisWorkbook.Path & ""
   
6.     myFile = Dir(myPath & "*.csv")
   
7.     Do While myFile <> ""
   
8.         If myFile <> ThisWorkbook.Name Then
   
9.             Set AK = Workbooks.Open(myPath & myFile)
   
10.               AK.Sheets(1).UsedRange.Offset(33, 0).Copy Sheet1.Range("A" & Sheet1.Cells(Rows.Count, 1).End(3).Row + 1)
    
11.             Workbooks(myFile).Close False
    
12.         End If
    
13.         myFile = Dir
    
14.     Loop
    
15.     Application.ScreenUpdating = True
    
16. End Sub
    

复制代码

七彩屋

data.rar (12.55 KB, 下载次数: 19)

2016-12-17 19:07 上传

点击文件名下载附件

xujunxujing

七彩屋 发表于 2016-12-17 19:07

大神，是你麽，请收下我的膝盖！！！，能问你一个问题吗，AK.Sheets(1).UsedRange.Offset(33, 0).Copy Sheet1.Range("A" & Sheet1.Cells(Rows.Count, 1).End(3).Row + 1)，这里面的"3"的作用是？？？

七彩屋

这里的3等于xlUp，也就是最后一行非空单元格

xujunxujing

七彩屋 发表于 2016-12-19 10:47
这里的3等于xlUp，也就是最后一行非空单元格

嗯，研究理解下，多谢前辈指教~