搜索
人大经济论坛 › 附件下载

附件下载

所在主题：
文件名:  第一部分.xls
资料下载链接地址: https://bbs.pinggu.org/a-872542.html
附件大小:
现在有4000+个excel文件，这些文件在一个文件夹中，命名没有规则，命名是中文长语句
excel文件内部是完全一样的，也就是表头一样，变量名称一样等，但是观测数不一样
现在需要从4000多个文件中将观测值合并为一个数据集。


现在我的办法是用pipe获得所有文件名后，用import读入，
但是这样子存在两个致命的问题：
1.太慢，要运行好几个小时
2.变量的长度读入的时候不能统一

求该问题好的解决方案！！！


该问题尝试用SAS解决，但是效果不好、


找到一段VBA程序，合并表格速度要快很多。共享一下
。
在工具-宏-宏中



  1. Sub huizong()
  2. mypath = ThisWorkbook.Path & "\"
  3. myfile = Dir(mypath & "*.xls")
  4. On Error Resume Next
  5. Do While myfile <> ""
  6. If myfile <> ThisWorkbook.Name Then
  7. Workbooks.Open mypath & myfile
  8. Workbooks(myfile).Sheets("第一部分").Activate
  9. Range("B3:R7").Select
  10. Selection.Copy
  11. Workbooks(ThisWorkbook.Name).Sheets("sheet1").Activate
  12. count2 = Range("A65536").End(xlUp).Row + 1
  13. Cells(count2, 1).Select
  14. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  15. :=False, Transpose:=False
  16. Workbooks(myfile).Close True
  17. End If
  18. myfile = Dir
  19. Loop
  20. End Sub
复制代码


介绍几个主要的参数：
"第一部分" 是要合并的很多表格的sheet名字
("sheet1").是合并之后的sheet名字
("B3:R7是需要合并的格子 区间
("A65536"). 是从该格子向上判断，非空


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。
(如有侵权，欢迎举报)
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2025-12-29 22:05