Tìm vị trí và tính tổng từ vị trí đó

[hathanh349]

Em chưa nghĩ ra được các để làm nhờ các bác chỉ giúp.
ở dòng tổng em muốn tính tổng ở cột có số, tính từ tổng này đến tổng kia. cảm ơn các bác nhiều ah

 

[Thóc Sama]

Em chưa nghĩ ra được các để làm nhờ các bác chỉ giúp.
ở dòng tổng em muốn tính tổng ở cột có số, tính từ tổng này đến tổng kia. cảm ơn các bác nhiều ah

Logic bạn có thể dùng code này

Option Explicit
Option Compare Text
Sub GPE()
    Dim i%, tong$, stt&, a%
    tong = "t" & ChrW(7893) & "ng"
    With Sheets("Sheet1")
        For i = 2 To 22
            If .Cells(i, 2) = tong Then
                For a = i To 2 Step -1
                    stt = stt + .Cells(a, 3)
                    If .Cells(a - 1, 2) = tong Then Exit For
                Next a
            End If
            If .Cells(i, 3) = "" Then .Cells(i, 3) = stt
            stt = 0
        Next i
    End With
End Sub

 

[SA_DQ]

Thêm 1 tham khảo cho vui nè, chủ bài đăng!

Sub TinhTong()
 Dim Tong As Double, Rws As Long, J As Long
 Const nG As String = "ng"
 
 Rws = [B2].End(xlDown).Row
 For J = 2 To Rws
    With Cells(J, "B")
        If IsNumeric(Right(.Value, 2)) Then
            Tong = Tong + .Offset(, 1).Value
        ElseIf Right(.Value, 2) = nG Then
            .Offset(, 1).Value = Tong:      Tong = 0
        End If
    End With
 Next J
End Sub