Đếm lọc trùng có điều kiện

[hml89]

Xin chào tất cả anh/chị /em trong diễn đàn.
Cho tôi xin hỏi cách đếm lọc trùng có điều kiện ở 3 cột( cột A,B,C) Nếu cột A,B,C giống nhau, thì nó chỉ tính là 1, còn khác 1 trong 3 cột thì tính là khác. Chi tiết tôi có làm trong file đính kèm.
Xin cám ơn

 

[hocexcel_1991]

Xin chào tất cả anh/chị /em trong diễn đàn.
Cho tôi xin hỏi cách đếm lọc trùng có điều kiện ở 3 cột. Chi tiết tôi có làm trong file đính kèm.
Xin cám ơn

Thử công thức này xem

F4=SUMPRODUCT(($D$4:$D$10=F$3)/COUNTIFS($A$4:$A$10,$A$4:$A$10,$D$4:$D$10,$D$4:$D$10))

 

[hml89]

Thử công thức này xem

F4=SUMPRODUCT(($D$4:$D$10=F$3)/COUNTIFS($A$4:$A$10,$A$4:$A$10,$D$4:$D$10,$D$4:$D$10))

Xin chào bạn, mình muốn đếm trùng khi cả 3 cột A,B,C giống nhau thì nó chỉ tính là 1, còn 1 trong 3 cột khác nhau thì nó sẽ tính khác nhau.

 

[hocexcel_1991]

Xin chào bạn, mình muốn đếm trùng khi cả 3 cột A,B,C giống nhau thì nó chỉ tính là 1, còn 1 trong 3 cột khác nhau thì nó sẽ tính khác nhau.

Vậy thử công thức này xem, nhấn Ctrl+Shift+Enter nhé

=SUM(($D$4:$D$10=G$3)*IFERROR(1/COUNTIFS($A$4:$A$10,$A$4:$A$10,$D$4:$D$10,$D$4:$D$10,$B$4:$B$10,$B$4:$B$10,$C$4:$C$10,$C$4:$C$10),0))

 

[hml89]

Vậy thử công thức này xem, nhấn Ctrl+Shift+Enter nhé

=SUM(($D$4:$D$10=G$3)*IFERROR(1/COUNTIFS($A$4:$A$10,$A$4:$A$10,$D$4:$D$10,$D$4:$D$10,$B$4:$B$10,$B$4:$B$10,$C$4:$C$10,$C$4:$C$10),0))

có cách nào không phải dùng mảng cho đỡ nặng không bạn nhỉ

 

[Phan Thế Hiệp]

có cách nào không phải dùng mảng cho đỡ nặng không bạn nhỉ

Dùng cột phụ, hoặc phải tạo code VBA.
Cách dùng cột phụ xem file kèm.
Thân

 

[hml89]

Dùng cột phụ, hoặc phải tạo code VBA.
Cách dùng cột phụ xem file kèm.
Thân

Cám ơn bạn nhé. Nếu có code bằng VBA thì bạn cho tôi xin để tôi học hỏi.

 

[Phan Thế Hiệp]

Cám ơn bạn nhé. Nếu có code bằng VBA thì bạn cho tôi xin để tôi học hỏi.

Bạn xin lộn người rồi!
Bạn nên nhờ người giỏi là cái "anh đóng khung" hình dưới đây nè! chắc chắn bạn sẽ mãn nguyện.

Thân

 

[hoangtuaotrang_hp_vn]

Thử công thức này xem

F4=SUMPRODUCT(($D$4:$D$10=F$3)/COUNTIFS($A$4:$A$10,$A$4:$A$10,$D$4:$D$10,$D$4:$D$10))

Mình thấy công thức này là đúng với yêu cầu rồi cơ mà nhỉ?

 

[FatBear]

bạn thử cái code cùi nè xem sao:

Sub dem_GPE()
Dim i As Long, eR As Long
Dim j As Long, k As Long
Dim sArr(), dArr(), kArr()
With Sheet1
    eR = .Range("A" & Rows.Count).End(3).Row
    sArr = .Range("A4:D" & eR).Value
    kArr = .Range("F3:J3").Value
    With CreateObject("scripting.dictionary")
        For i = 1 To UBound(sArr)
        Key = sArr(i, 1) & sArr(i, 2) & sArr(i, 3) & sArr(i, 4)
          If Not .exists(Key) Then
                .Item(Key) = i
          End If
        Next i
    ReDim dArr(1 To 1, 1 To 5)
        For j = 1 To UBound(kArr, 2)
        k = 0
        For Each Key In .keys
        If Key Like "*" & kArr(1, j) & "*" Then
            k = k + 1
            dArr(1, j) = k
        End If
        Next
        Next j
    
    End With
    .Range("F4").Resize(1, 5) = dArr
End With
End Sub

 

[hml89]

bạn thử cái code cùi nè xem sao:

Sub dem_GPE()
Dim i As Long, eR As Long
Dim j As Long, k As Long
Dim sArr(), dArr(), kArr()
With Sheet1
    eR = .Range("A" & Rows.Count).End(3).Row
    sArr = .Range("A4:D" & eR).Value
    kArr = .Range("F3:J3").Value
    With CreateObject("scripting.dictionary")
        For i = 1 To UBound(sArr)
        Key = sArr(i, 1) & sArr(i, 2) & sArr(i, 3) & sArr(i, 4)
          If Not .exists(Key) Then
                .Item(Key) = i
          End If
        Next i
    ReDim dArr(1 To 1, 1 To 5)
        For j = 1 To UBound(kArr, 2)
        k = 0
        For Each Key In .keys
        If Key Like "*" & kArr(1, j) & "*" Then
            k = k + 1
            dArr(1, j) = k
        End If
        Next
        Next j
   
    End With
    .Range("F4").Resize(1, 5) = dArr
End With
End Sub

cám ơn bạn!