对无规律的单元格求和

qingc0221

1. Sub Main()
   
2.     Dim LastRow As Long, i As Long
   
3.     Dim StartRow As Long
   
4.     Dim Total As Single
   
5.    
   
6.     LastRow = Cells(Rows.Count, 1).End(xlUp).Row
   
7.     Range("E2:E" & LastRow).ClearContents
   
8.     For i = 2 To LastRow
   
9.         If Cells(i, "A") <> "" Then
   
10.             If StartRow > 0 Then
    
11.                 Cells(StartRow, "E") = Format(Total, "#.##")
    
12.             End If
    
13.             Total = Cells(i, "D").Value
    
14.             StartRow = i
    
15.             If StartRow = LastRow Then
    
16.                 Cells(StartRow, "E") = Format(Total, "#.##")
    
17.             End If
    
18.         Else
    
19.             Total = Total + Cells(i, "D").Value
    
20.         End If
    
21.     Next i
    
22. End Sub

复制代码

micch

1. =IF(B2,SUM(OFFSET(D2,,,IFERROR(MATCH(1,B3:B20,),99))),"")

复制代码

E2，下拉。希望在D列得到结果，D列是数据源，还是结果？

hcm19522

完成下拉才正確 {=IF(B2,SUM(D2:D$17)-SUM((0&E3:E18)*1),"")

daizhiwu

qingc0221 发表于 2019-3-21 13:55

我是看不懂啊，大侠，可以把没有值的单元格不要点点出现么？

小花鹿

Sub test()
Dim r&, i&, sm
r = [d65536].End(3).Row
For i = r To 2 Step -1
    sm = sm + Cells(i, "d")
    If Cells(i, "a") <> "" Then
        Cells(i, "g") = sm
        sm = 0
    End If
Next i
End Sub

dt217

在E2单元格填写公式：
=IF(ISERROR(MATCH("USD",C3:C17)),SUM(D2:D17),IF(INDIRECT(ADDRESS(ROW(),3))="USD",SUM(INDIRECT(CONCATENATE(ADDRESS(ROW(),4),":",ADDRESS(ROW()+MATCH("USD",C3:C17,0)-1,4)))),""))
然后一直拉到最下面

sayhi95

1. =IF(B2,SUM(D2:D17)-SUM(E3:E17),"")

复制代码

下拉

jjmysjg

留个记号。谢谢

ezjahz

留个记号。谢谢!