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

jjmysjg

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

ykcbf1100

附件供参考。。。

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

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.11.10
   
2.     Application.ScreenUpdating = False
   
3.     Set fso = CreateObject("Scripting.FileSystemObject")
   
4.     p = ThisWorkbook.Path & ""
   
5.     Set sh = ThisWorkbook.Sheets("主表")
   
6.     n = 3
   
7.     For Each f In fso.GetFolder(p).Files
   
8.         If f.Name Like "*历史数据*" Then
   
9.             n = n + 3
   
10.             Set wb = Workbooks.Open(f, 0)
    
11.             With wb.Sheets("主表")
    
12.                 sh.Cells(2, n - 2) = Mid(.[a4].Value, 7, 8)
    
13.                 Set Rng = .[d10:d50]
    
14.                 Rng.Copy sh.Cells(4, n - 2)
    
15.             End With
    
16.             wb.Close 0
    
17.             With sh
    
18.                 .Columns(n).NumberFormatLocal = "0.00"
    
19.                 For i = 4 To 50
    
20.                     .Cells(i, n).Value = Val(.Cells(i, n - 1).Value) + Val(.Cells(i, n - 2).Value)
    
21.                 Next
    
22.             End With
    
23.         End If
    
24.     Next f
    
25.     Application.ScreenUpdating = True
    
26.     MsgBox "OK！"
    
27. End Sub
    
28. 
    

复制代码

jjmysjg

ykcbf1100 发表于 2024-11-10 08:49
附件供参考。。。

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

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

ykcbf1100

jjmysjg 发表于 2024-11-10 11:40
非常感谢草爷！就是这个结果。
能增加点难度吗：
1、提取的年月所在单元格为三列合并单元格。

改一下吧。。。

jjmysjg

ykcbf1100 发表于 2024-11-10 11:47
改一下吧。。。

谢谢大师！，是这个结果

jjmysjg

ykcbf1100 发表于 2024-11-10 11:47
改一下吧。。。

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

ykcbf1100

反向操作？

jjmysjg

ykcbf1100 发表于 2024-11-11 20:57
反向操作？

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

ykcbf1100

jjmysjg 发表于 2024-11-11 21:20
汇总表B列的单元格内容与各表内容一致的，才横向对齐汇总进行。
现在我有几个，由于项目内容不一致，也 ...

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