Thử:
G3=SUM(IFERROR(($D$3:$D$500=F3)/COUNTIFS($B$3:$B$500,$B$3:$B$500,$C$3:$C$500,$C$3:$C$500),""))
Đúng là "cao tăng" có khác, nghĩ ra tuyệt chiêu thượng "thừa". Bài này thuộc loại đếm phần tử duy nhất theo điều kiện, đã dùng code thì không dùng định dạng nữa.
Không biết ai làm giống tôi không, sử dụng cột phụ:
có 2 cách vầy. bạn ý thích làm thế nào thì làm thôi. Phùng long nhau à bạn =.="
Cám ơn Tiền Bối nhe, đúng 100%
Rất cám ơn DazkAngel nhe, hàm của Bạn cũng chính xác 100% nhưng phải dùng thêm cột giá trị phụ nữa. Mình thấy hàm của Anh Hiệp OK gọn và chính xác. Một lần nữa cám ơn DazkAngle nhe.
Cái chữ đỏ đỏ nó có nghĩa là gì thế, rõ ràng là ám chỉ một cách rồi nhé.
Tiêu sư phụ ở Nam Thiếu Lâm á, tui ở Bắc Thiếu Lâm nè.
Cho bạn thêm cách này (cách này ít người sài):
=COUNT(MATCH(ROW($1:$1000),MATCH($B$3:$B$278,$B$3:$B$278,)*($D$3:$D$278=F3),))Vâng. Cơ mà t ở Bắc. Mà b biết thì dạy người ra đi sao cứ loằn ngoằn thế nhỉ @@
Function DemTrung(CSDL As Range, DDm As String)
Dim Dict As Object, Arr()
Dim J As Long, W As Integer
Dim MyAdd As String
Set Dict = CreateObject("Scripting.Dictionary")
Arr() = CSDL.Value
For J = 1 To UBound(Arr())
If Arr(J, 3) = DDm Then
MyAdd = Arr(J, 3) & Arr(J, 2)
If MyAdd <> Space(0) And Not Dict.exists(MyAdd) Then
W = W + 1: Dict.Add MyAdd, W
End If
End If
Next J
DemTrung = W
End FunctionĐã nói rõ là chưa code lần nào, mà lại cứ dồn người ta vào chỗ bí là sao cơ chứ, dạy được ai cơ chứ, xem bài #17 ý, có gì không hiểu thì hỏi anh ý.
