Tính Tổng theo điều kiện. (3 người xem)

[thang24]

Mình có file excle đính kèm.
Đề bài:
Cộng tất cả các dòng con bên dưới vào dòng mẹ (dòng có số tham chiếu, tất cả dòng bên dưới đó không có tham chiếu được hiểu là con của số tham chiếu trên đó); Bài

Vậy xin nhờ anh em trợ giúp.

cảm ơn rất nhiều

 

[FatBear]

bạn chạy thử code cùi này xem sao

Sub GPE()
Dim i As Long, er As Long, diemD As Long, diemC As Long
Dim j As Long, k As Long, m As Long
Application.ScreenUpdating = False
With Sheet1
    er = .Range("D" & Rows.Count).End(3).Row
diemC = 7
For m = diemC To er
    For i = diemC To er
        If Len(Cells(i, 4)) > 0 Then
            diemD = i
            Exit For
        End If
    Next i
    
    For j = diemD + 1 To er
        If Len(Cells(j, 4)) > 0 Then
            diemC = j - 1
            Exit For
        End If
    Next j
    For k = diemD To diemC
        Tong = Tong + Cells(k, 6)
        Cells(diemD, 3) = Tong
    Next k
    diemC = diemC + 1
    Tong = 0
Next m
End With
Application.ScreenUpdating = True
End Sub

 

[thang24]

bạn chạy thử code cùi này xem sao

Sub GPE()
Dim i As Long, er As Long, diemD As Long, diemC As Long
Dim j As Long, k As Long, m As Long
Application.ScreenUpdating = False
With Sheet1
    er = .Range("D" & Rows.Count).End(3).Row
diemC = 7
For m = diemC To er
    For i = diemC To er
        If Len(Cells(i, 4)) > 0 Then
            diemD = i
            Exit For
        End If
    Next i
   
    For j = diemD + 1 To er
        If Len(Cells(j, 4)) > 0 Then
            diemC = j - 1
            Exit For
        End If
    Next j
    For k = diemD To diemC
        Tong = Tong + Cells(k, 6)
        Cells(diemD, 3) = Tong
    Next k
    diemC = diemC + 1
    Tong = 0
Next m
End With
Application.ScreenUpdating = True
End Sub

Rấn cảm ơn bạn.

 

[Phan Thế Hiệp]

Mình có file excle đính kèm.
Đề bài:
Cộng tất cả các dòng con bên dưới vào dòng mẹ (dòng có số tham chiếu, tất cả dòng bên dưới đó không có tham chiếu được hiểu là con của số tham chiếu trên đó); Bài

Vậy xin nhờ anh em trợ giúp.

cảm ơn rất nhiều

Thử:

C7=IF(D7,SUM(F7:$F$100)-SUM(C8:$C$100),"")

Enter fill xuống.

Thân