Tự động tính tổng cho dòng tổng cộng? (1 người xem)

[Hoàng Nhật Phương]

Xin chào các bạn,
Hiện tôi đang có một vướng mắc như tiêu đề đã nêu, cụ thể xin được giải thích rõ hơn trong tập tin gửi kèm.

Rất mong các bạn xem tập tin và giúp đỡ ạ.

 

[PacificPR]

Bạn thử cái này xem sao

Sub Tongcong()
    Dim i As Long, Er As Long, Sd As Long
Application.ScreenUpdating = False
Er = Range("D65535").End(xlUp).Row
For i = 10 To Er
    If Range("C" & i) <> Empty Then Sd = Sd + 1
    If Range("D" & i) = "Tæng céng:" Then
        Range("E" & i) = "=SUM(E" & i - 1 & ":E" & i - Sd & ")"
        Sd = 0
    End If
Next i
Application.ScreenUpdating = True
End Sub

 

[giaiphap]

Thêm một cách khác.

Sub GPE()
Dim sCell As Range, Rng As Range
Application.ScreenUpdating = False
Set Rng = Range("C10", Range("C65000").End(xlUp).Offset(1)).SpecialCells(xlCellTypeBlanks)
    For Each sCell In Rng
        If sCell.Offset(-1) <> Empty Then sCell.Offset(, 2) = "=SUM(" & sCell.Offset(-sCell.Offset(-1), 2).Resize(sCell.Offset(-1)).Address & ")"
    Next sCell
Application.ScreenUpdating = True
End Sub

 

[ndu96081631]

Xin chào các bạn,
Hiện tôi đang có một vướng mắc như tiêu đề đã nêu, cụ thể xin được giải thích rõ hơn trong tập tin gửi kèm.

Rất mong các bạn xem tập tin và giúp đỡ ạ.

Cách làm đơn giản nhất là vầy:
- AutoFilter cột D theo điều kiện "Tæng céng:"
- Xong, gõ vào cell E15 công thức

=2*SUBTOTAL(109,E$10:E14)-SUM(E$10:E14)

- Kéo fill E15 xuống dưới
- Bỏ AutoFilter
Xong!