Tính tổng giá trị giữa 2 số thứ tự (2 người xem)

[phuong_cd9]

Em có 1 file excel như đính kèm. Chẳng hạn em muốn tính tổng giá trị giữa ô thứ tự số 12 và 13; 13 và 14; 14 và 15 thì có hàm nào để tính nhanh ko ạ? ( số giá trị giữa các ô thứ tự là không bằng nhau).
Em cảm ơn!

 

[snow25]

Em có 1 file excel như đính kèm. Chẳng hạn em muốn tính tổng giá trị giữa ô thứ tự số 12 và 13; 13 và 14; 14 và 15 thì có hàm nào để tính nhanh ko ạ? ( số giá trị giữa các ô thứ tự là không bằng nhau).
Em cảm ơn!

đây bạn xem nhé tạo thêm cột phụ

 

[Phuocam]

Công thức tà đạo của Lão Ẹc Ẹc, tại E8:

=IF(C8="","",SUM(D8:$D$19)-SUM(E9:$E$20))

 

[cdtam]

Em có 1 file excel như đính kèm. Chẳng hạn em muốn tính tổng giá trị giữa ô thứ tự số 12 và 13; 13 và 14; 14 và 15 thì có hàm nào để tính nhanh ko ạ? ( số giá trị giữa các ô thứ tự là không bằng nhau).
Em cảm ơn!

Thử nha, hàng của GPE đóa .Mình chỉ xào lại thôi

 

[snow25]

Thử nha, hàng của GPE đóa .Mình chỉ xào lại thôi

code nhìn khó hiểu thật đấy cứ sác định tọa độ rồi cộng,xong lại sác định tọa độ rồi cộng quá nhiều vòng lặp à

 

[cdtam]

code nhìn khó hiểu thật đấy cứ sác định tọa độ rồi cộng,xong lại sác định tọa độ rồi cộng quá nhiều vòng lặp à

Vậy bạn viết lại đi. Cái này thì mình chịu à

 

[HieuCD]

Em có 1 file excel như đính kèm. Chẳng hạn em muốn tính tổng giá trị giữa ô thứ tự số 12 và 13; 13 và 14; 14 và 15 thì có hàm nào để tính nhanh ko ạ? ( số giá trị giữa các ô thứ tự là không bằng nhau).
Em cảm ơn!

Sub GPE()
  Dim i As Long, eRow As Long, ik As Long, S As Double
  Application.ScreenUpdating = False
  With Sheet1
    eRow = .Range("D" & Rows.Count).End(xlUp).Row + 1
    Range("E8:E" & eRow + 10).ClearContents
    For i = 8 To eRow
      If Len(Cells(i, "C")) > 0 Then ik = i Else S = S + Cells(i, "D")
      If Len(Cells(i + 1, "C")) > 0 Or i = eRow Then
        Cells(ik, "E") = S
        S = 0
      End If
    Next i
  End With
  Application.ScreenUpdating = True
End Sub

 

[CHAOQUAY]

Em có 1 file excel như đính kèm. Chẳng hạn em muốn tính tổng giá trị giữa ô thứ tự số 12 và 13; 13 và 14; 14 và 15 thì có hàm nào để tính nhanh ko ạ? ( số giá trị giữa các ô thứ tự là không bằng nhau).
Em cảm ơn!

Sub Cong()
Dim i, j
With Sheet1
    For i = .Range("c65000").End(xlUp).Row To 8 Step -1
        If .Range("c" & i) <> "" Then
            .Range("e" & i) = j
            j = 0
        Else
            j = j + .Range("d" & i)
        End If
    Next i
End With
End Sub

 

[cdtam]

Sub Cong()
Dim i, j
With Sheet1
    For i = .Range("c65000").End(xlUp).Row To 8 Step -1
        If .Range("c" & i) <> "" Then
            .Range("e" & i) = j
            j = 0
        Else
            j = j + .Range("d" & i)
        End If
    Next i
End With
End Sub