求一个VB，可以算出每个月成本的累计

小陆1982

我大概有几个十这样的表，里面有每个月的数据，现在需要将每些数据依照明细和月份统计到一张表里面去：
注：汇总表A列的明细会不一样，如果明细表没有，则置空。

把这些数据汇总。

小陆1982

求助中……

shiruiqiang

论坛里各位老师不是不写，主要搞不懂你的需求

小陆1982

不好意思，各位老师，这个有点复杂。
我再说下需求：这是一个成本预算表，我会把每个阶段发生的成本放在明细表上，行对应的是月份，列对应的是产生费用的类别，每个阶段都是一张独立的表。然后我需要做一张总表，把每个月产生的费用根据类别合计到费用总表上。
类似于下表：

小陆1982

各位老师，不好意思，这个需求有点复杂 。



我现在有多张明细表的数据，行数据是代表阶段或月份，列数据是发生费用的名称。我的需求是要把明细表里的数据，按行的月和列的名称汇总到一张表上。大概是下图的效果：

ykcbf1100

猜一个吧。
附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.12.10
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     For Each sht In Sheets
   
5.         If InStr(sht.Name, "AM") Then
   
6.             With sht
   
7.                 r = .Cells(Rows.Count, 2).End(3).Row
   
8.                 c = .UsedRange.Columns.Count
   
9.                 arr = .[a1].Resize(r, c).Value
   
10.             End With
    
11.             For i = 5 To UBound(arr)
    
12.                 For j = 6 To UBound(arr, 2)
    
13.                     s = arr(i, 2) & "|" & arr(3, j)
    
14.                     d(s) = d(s) + Val(arr(i, j))
    
15.                 Next
    
16.             Next
    
17.         End If
    
18.     Next
    
19.     With Sheets("汇总")
    
20.         r = .Cells(Rows.Count, 1).End(3).Row
    
21.         c = .UsedRange.Columns.Count
    
22.         arr = .[a1].Resize(r, c).Value
    
23.         For i = 5 To UBound(arr)
    
24.             For j = 5 To UBound(arr, 2)
    
25.                 s = arr(i, 1) & "|" & arr(3, j)
    
26.                 If d.exists(s) Then
    
27.                     .Cells(i, j).Value = d(s)
    
28.                 Else
    
29.                     .Cells(i, j).Value = ""
    
30.                 End If
    
31.             Next
    
32.         Next
    
33.         ActiveWindow.DisplayZeros = False
    
34.     End With
    
35.     Set d = Nothing
    
36.     Application.ScreenUpdating = True
    
37.     MsgBox "OK！"
    
38. End Sub
    
39. 
    

复制代码

小陆1982

谢谢老师的解答。