提取夹内各簿固定表的列数据到汇总表横向写入

小鹿巴啦啦啦

1、提取文件夹内各个工作簿中《主表》A4单元格的第7至14个字符(如2019年03月)，到本汇总表的D2（3列合并单元格）向右横向写入；
2、文件夹内所有工作簿中《主表》的D10:D50数据复制到本表D2、G2、J2...等字段下的“本月数”向下，并对应B列项目复制。
3、调整结果=本月数+调整数。
4、夹内工作簿数量不定；各个簿中《主表》位置不定。
谢谢各位老师！

提取夹内各簿固定表的列数据到汇总表.rar (107.86 KB, 下载次数: 0)

2026-4-25 04:47 上传

点击文件名下载附件

孙晓靖

附件供参考。。。

D2还是根据文件名来提取年月比较好。

提取夹内各簿固定表的列数据到汇总表.zip (325 Bytes, 下载次数: 0)

2026-4-25 04:47 上传

点击文件名下载附件

廖贤军

参与一下。。。

• Sub ykcbf()   '//2024.11.10
  
•     Application.ScreenUpdating = False
  
•     Set fso = CreateObject("Scripting.FileSystemObject")
  
•     p = ThisWorkbook.Path & ""
  
•     Set sh = ThisWorkbook.Sheets("主表")
  
•     n = 3
  
•     For Each f In fso.GetFolder(p).Files
  
•         If f.Name Like "*历史数据*" Then
  
•             n = n + 3
  
•             Set wb = Workbooks.Open(f, 0)
  
•             With wb.Sheets("主表")
  
•                 sh.Cells(2, n - 2) = Mid(.[a4].Value, 7, 8)
  
•                 Set Rng = .[d10:d50]
  
•                 Rng.Copy sh.Cells(4, n - 2)
  
•             End With
  
•             wb.Close 0
  
•             With sh
  
•                 .Columns(n).NumberFormatLocal = "0.00"
  
•                 For i = 4 To 50
  
•                     .Cells(i, n).Value = Val(.Cells(i, n - 1).Value) + Val(.Cells(i, n - 2).Value)
  
•                 Next
  
•             End With
  
•         End If
  
•     Next f
  
•     Application.ScreenUpdating = True
  
•     MsgBox "OK！"
  
• End Sub
  
• 
  

余生一起

非常感谢草爷！就是这个结果。
能增加点难度吗：
1、提取的年月所在单元格为三列合并单元格。
2、本月数、调整数、调整结果三个标题随即出现在提取的年月下边。

冰雪冬天

改一下吧。。。

提取夹内各簿固定表的列数据到汇总表.zip (131.76 KB, 下载次数: 0)

2026-4-25 04:47 上传

点击文件名下载附件

浮誇

谢谢大师！，是这个结果

唯家国情怀

老师：如果各表匹配汇总表B4:B44的数值汇总进来（也就是与汇总表B列相同数值），能改代码吗。
谢谢老师！

王嘉怡

反向操作？

鑫泉

汇总表B列的单元格内容与各表内容一致的，才横向对齐汇总进行。
现在我有几个，由于项目内容不一致，也汇总进来了。

华铭

要具体一点，你上传一个附件看看吧。