Giúp mình :Tính tổng các đoạn liên tiếp trên 1 cột !!

[july2xst]

[TABLE="width: 50"]
[TR]
[TD]1[/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]2[/TD]
[TD]1[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]3[/TD]
[TD]0[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]4[/TD]
[TD]0[/TD]
[TD]=?[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]8[/TD]
[TD]1[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]7[/TD]
[TD]0[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD]5[/TD]
[TD]0[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]8[/TD]
[TD]4[/TD]
[TD]0[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]9[/TD]
[TD]5[/TD]
[TD]0[/TD]
[TD]=?[/TD]
[/TR]
[TR]
[TD]10[/TD]
[TD]4[/TD]
[TD]2[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]11[/TD]
[TD]3[/TD]
[TD]0[/TD]
[TD]=?[/TD]
[/TR]
[TR]
[TD]12[/TD]
[TD]2[/TD]
[TD]2[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]13[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]14[/TD]
[TD]2[/TD]
[TD]0[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]15[/TD]
[TD]3[/TD]
[TD]0[/TD]
[TD]=?[/TD]
[/TR]
[TR]
[TD]16[/TD]
[TD]4[/TD]
[TD]22[/TD]
[TD]=?[/TD]
[/TR]
[TR]
[TD]17[/TD]
[TD]5[/TD]
[TD]23[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]18[/TD]
[TD]6[/TD]
[TD]0[/TD]
[TD]=?[/TD]
[/TR]
[TR]
[TD]19[/TD]
[TD]7[/TD]
[TD]27[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]20[/TD]
[TD]8[/TD]
[TD]0[/TD]
[TD]=?[/TD]
[/TR]
[TR]
[TD]21[/TD]
[TD]9[/TD]
[TD]55[/TD]
[TD]=?[/TD]
[/TR]
[/TABLE]

Mình có 1 bảng gồm 2 cột như trên số hàng rất nhiều lên đến 17000 hàng , mình muốn tính ra tổng các số bên cột A trong các khoảng theo cột B, khoảng đó được tính bắt đầu từ 1 số #0 và kết thúc bởi số 1 số #0 tiếp theo số #0(ví dụ như bảng trên thì các khoảng là :A2:A4, A5:A9, A10:A11, A12:A15, A16, A17:A18, A19:A20, A21).


Mong nhận được giúp đỡ của các bạn !

 

[VMH0307]

[TABLE="width: 50"]
[TR]
[TD]1
[/TD]
[TD]A
[/TD]
[TD]B
[/TD]
[TD]C
[/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD]2
[/TD]
[TD]1
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD]3
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4
[/TD]
[TD]4
[/TD]
[TD][/TD]
[TD]=?
[/TD]
[/TR]
[TR]
[TD]5
[/TD]
[TD]8
[/TD]
[TD]1
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6
[/TD]
[TD]7
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]7
[/TD]
[TD]5
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]8
[/TD]
[TD]4
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]9
[/TD]
[TD]5
[/TD]
[TD][/TD]
[TD]=?
[/TD]
[/TR]
[TR]
[TD]10
[/TD]
[TD]4
[/TD]
[TD]2
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]11
[/TD]
[TD]3
[/TD]
[TD][/TD]
[TD]=?
[/TD]
[/TR]
[TR]
[TD]12
[/TD]
[TD]2
[/TD]
[TD]2
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]13
[/TD]
[TD]1
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]14
[/TD]
[TD]2
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]15
[/TD]
[TD]3
[/TD]
[TD][/TD]
[TD]=?
[/TD]
[/TR]
[TR]
[TD]16
[/TD]
[TD]4
[/TD]
[TD]22
[/TD]
[TD]=?
[/TD]
[/TR]
[TR]
[TD]17
[/TD]
[TD]5
[/TD]
[TD]23
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]18
[/TD]
[TD]6
[/TD]
[TD][/TD]
[TD]=?
[/TD]
[/TR]
[TR]
[TD]19
[/TD]
[TD]7
[/TD]
[TD]27
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]20
[/TD]
[TD]8
[/TD]
[TD][/TD]
[TD]=?
[/TD]
[/TR]
[TR]
[TD]21
[/TD]
[TD]9
[/TD]
[TD]55
[/TD]
[TD]=?
[/TD]
[/TR]
[/TABLE]

Mình có 1 bảng gồm 2 cột như trên số hàng rất nhiều lên đến 17000 hàng , mình muốn tính ra tổng các số bên cột A trong các khoảng theo cột B, khoảng đó được tính bắt đầu từ 1 số #0 và kết thúc bởi số 1 số #0 tiếp theo số #0(ví dụ như bảng trên thì các khoảng là :A2:A4, A5:A9, A10:A11, A12:A15, A16, A17:A18, A19:A20, A21).


Mong nhận được giúp đỡ của các bạn !

Tại ô C3 bạn dùng công thức sau:

=IF(B4<>0,SUM($A$2:A3)-SUM($C$2:C2),0)

enter và kéo xuống
P/S: Lưu ý, số đầu, số cuối (ví dụ C2, C21) bạn tự điền tay nhé

 

[july2xst]

Mình làm được rồi. Cảm ơn bạn nhiều lắm !

 

[SA_DQ]

Nếu sơ mỏi tay thì xài cái này, như là 1 tham khảo vui:

Option Explicit
Sub TinhTongCon()
 Dim Rng As Range, sRng As Range, WF As Object, Rg0 As Range
 Dim fAdd As String
 
 Set Rng = Range([B1], [b2].End(xlDown))
 Set Rg0 = [A2]
 Set WF = Application.WorksheetFunction
 Set sRng = Rng.Find("0", , xlFormulas, xlWhole)
 If Not sRng Is Nothing Then
    fAdd = sRng.Address
    Do
        If sRng.Offset(1).Value <> 0 Then
            sRng.Offset(, 1).Value = WF.Sum(Range(Rg0, sRng.Offset(, -1)))
            Set Rg0 = sRng.Offset(1, -1)
        End If
        Set sRng = Rng.FindNext(sRng)
    Loop While Not sRng Is Nothing And sRng.Address <> fAdd
 Else
    MsgBox "Nothing"
 End If
End Sub

 

[july2xst]

Mình không hiểu Hyeen17 bảo làm gì nữa !