求一个录制M列公式的宏

hellenlxy

于箱长 发表于 2024-1-6 14:12
她这个M列是余额，余额就是这样的，上月末数量加本月增加数量减本月减少数量等于本月剩余数量

没错，是这个意思

于箱长

hellenlxy 发表于 2024-1-6 14:14
没错，是这个意思

我早就妙懂了你要嘎哈了，同行

剑指E

hellenlxy 发表于 2024-1-6 14:13
本月合计不包含上年，是余额要包含，好比我的钱包，我上个月最后一天剩下100元，本月收入500元，用掉了20 ...

如此，本月合计（即变成本月结余），与本月最后一条累积相同，本年累计亦与其相同，好好理一下逻辑。

沈默00

基础的统计知识

chxw68

1. Sub test5()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("查询")
   
5.         r = .Cells(.Rows.Count, 13).End(xlUp).Row
   
6.         arr = .Range("d1:d" & r)
   
7.         For i = 7 To r
   
8.             If arr(i, 1) = "本月合计" Then
   
9.                 .Cells(i, 13).FormulaR1C1 = "=R[-1]C"
   
10.             ElseIf arr(i, 1) = "本年累计" Then
    
11.                 .Cells(i, 13).FormulaR1C1 = "=R[-1]C"
    
12.             Else
    
13.                 .Cells(i, 13).FormulaR1C1 = "=R[-1]C+RC6-RC9"
    
14.             End If
    
15.         Next
    
16.     End With
    
17. End Sub
    

复制代码

chxw68

凑个热闹。