VBA按条件累加求和

Excelyzw

各位老师，目前做VBA遇到点问题，就是统计每一户的金额，目前vba没思路，麻烦指导下

lovelfg

初始化一个变量叫k吧，然后碰到条件符合的就累加

Excelyzw

朱荣兴 发表于 2019-6-25 14:37
什么都见不到，让人怎么帮你？？请上传你的excel附件

不好意思，不清楚为什么上传不了附件

Excelyzw

朱荣兴 发表于 2019-6-25 15:08
上传不了就加我QQ私聊吧

换了个浏览器上传了，麻烦您看下

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("ws")
   
5.     r = .Cells(.Rows.Count, 2).End(xlUp).Row
   
6.     .Range("c2:c" & r).ClearContents
   
7.     arr = .Range("a2:c" & r)
   
8.     s = 0
   
9.     For i = UBound(arr) To 1 Step -1
   
10.       s = s + arr(i, 1)
    
11.       If arr(i, 2) = "户主" Then
    
12.         arr(i, 3) = s
    
13.         s = 0
    
14.       End If
    
15.     Next
    
16.     .Range("a2").Resize(UBound(arr), UBound(arr, 2)) = arr
    
17.   End With
    
18. End Sub
    

复制代码

chxw68

简单问题。

yooha

Sub test()
Dim aa1, aa2, aa3
Application.ScreenUpdating = False
aa2 = 0
aa3 = 2
For aa1 = 2 To 60000
Sheet1.Cells(aa1, 3) = ""
Select Case Sheet1.Cells(aa1, 2)
Case Is = "户主"
Sheet1.Cells(aa3, 3) = aa2
aa2 = Sheet1.Cells(aa1, 1)
aa3 = aa1
Case Is = ""
Sheet1.Cells(aa3, 3) = aa2
aa1 = 60000
Case Else
aa2 = aa2 + Sheet1.Cells(aa1, 1)
End Select
Next
Application.ScreenUpdating = True
End Sub

vic9

D2
=IF(B2="户主",SUM(OFFSET(A2,,,IFERROR(SMALL(IF((B2:$B$24="户主"),ROW(A2:$A$24),""),2),25)-MIN(IF((B2:$B$24="户主"),ROW(A2:$A$24),"")))),"")

vic9

Sub dd()
Dim i, arr, sm, t, w, y, k
Columns(3).ClearContents
arr = Range("a1:c" & Cells(Rows.Count, "b").End(xlUp).Row)
    For i = UBound(arr) To 2 Step -1
        If arr(i, 2) = "户主" Then
            t = i - 1
            w = i + k
        For y = w To t + 1 Step -1
            sm = arr(y, 1) + sm
        Next
        arr(t + 1, 3) = sm
        sm = 0: k = 0
        Else
            k = k + 1
        End If
    Next
    [a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub