thanhlp2007
Thành viên thường trực




- Tham gia
- 24/10/07
- Bài viết
- 201
- Được thích
- 11
Cái này là tính tổng chứ đâu phải dò tìmChào cả nhà.
Mình có VD nhỏ. Mình muốn cộng lại số điểm của những người có cùng tên theo file đính kèm.
Rất mong được hỗ trợ giúp.
Cám ơn.
=SUMIF($A$4:$A$14,E4,$B$4:$B$14)
Cùng quan điểm với anh nàyCái này là tính tổng chứ đâu phải dò tìm
Mã:=SUMIF($A$4:$A$14,E4,$B$4:$B$14)
Xem fileChào cả nhà.
Mình có VD nhỏ. Mình muốn cộng lại số điểm của những người có cùng tên theo file đính kèm.
Rất mong được hỗ trợ giúp.
Cám ơn.
Function TK(Rng As Range, Rg0 As Range)
Dim Arr()
Dim J As Long, W As Integer, Tmp As Double
ReDim dArr(1 To Rg0.Cells.Count, 1 To 1)
Arr() = Rng.Value
For W = 1 To Rg0.Cells.Count
For J = 1 To UBound(Arr())
If Rg0(W).Value = Arr(J, 1) Then
Tmp = Tmp + Arr(J, 2)
End If
Next J
dArr(W, 1) = Tmp: Tmp = 0
Next W
TK = dArr()
End Function