[已解决]如何将一个文件夹里的不同EXCEL提取特定数据汇总到单独的一个EXCEL里？

风雨清扬

求各位大神帮助
如附件的文件夹里，有N多个EXCEL，先将EXCEL里的数据处理 包括分列、求平均等等
如附件的文档，需在54行之后分列，以逗号分开，需求的是每列的平均值
再按照文档名汇总到另一个新的EXCEL里
有点麻烦…… 不知道能否支支招
单独处理我也会的 或者说在单个EXCEL里录制宏也能做到
关键是怎么样可以一次性用一个小工具完成？
谢谢各位大神指点
不甚感激

最佳答案

月排行榜 / 总排行榜

zyouong

2013-7-31 16:57

20130727-0928-13.rar (54.49 KB, 下载次数: 14)

2013-7-31 16:57 上传

点击文件名下载附件

跳转到最佳答案楼层

zyouong

20130727-0928-13.rar (54.49 KB, 下载次数: 14)

2013-7-31 16:57 上传

点击文件名下载附件

风雨清扬

你好 谢谢大神指点
但是为什么我运行这个宏的时候显示错误呢？
Sub 所有()
Dim i As Integer
Dim path As String, pathxx As String
Dim Filename As String
Application.ScreenUpdating = False
twna = ThisWorkbook.Name
pathxx = ThisWorkbook.path
path = ThisWorkbook.path & "\*.CSV"
   Filename = Dir(path)
Do
   If Filename <> ThisWorkbook.Name Then
      i = i + 1
      Range("Bx" & i) = Filename
   End If
      Filename = Dir
Loop Until Filename = ""




Filename = Dir(path) 这个显示黄色有错……