Đếm Tổng số lần xuất hiện duy nhất của dãy số so với dãy Mẫu (1 người xem)

[sacalataba127]

Anh chị chỉ giúp em cách với ạ
Đếm Tổng số lần xuất hiện duy nhất của dãy số so với dãy Mẫu
ví dụ
Dãy mẫu 1231
Dãy so sánh 1125
Kết quả = 2
Em cảm ơn ạ


1.Phương án anh @CHAOQUAY đưa ra bằng VBA...
Function Dem(Vung0 As Range, Vung1 As Range)
Dim Mang(9)
Dim i, j
For i = 1 To Vung0.Columns.Count
j = Vung0(1, i)
Mang(j) = 1
Next i
For i = 1 To Vung1.Columns.Count
j = Vung1(1, i)
If Mang(j) = 1 Then
Dem = Dem + 1
Mang(j) = ""
End If
Next i
End Function

2. Phương án anh @excel_lv1.5 đưa ra bằng công thức mảng...
=COUNT(MATCH(IF(MATCH($F$7:$H$7,$F$7:$H$7,)={1\2\3},$F$7:$H$7),F10:H10,)), bấm Ctrl+Shift+Enter

 

[befaint]

I10=SUMPRODUCT(1*(COUNTIF($F10:$H10,$F$7:$H$7)>0))

 

[sacalataba127]

I10=SUMPRODUCT(1*(COUNTIF($F10:$H10,$F$7:$H$7)>0))

cảm ơn anh, nhưng nếu dữ liệu Dãy Mẫu là 121 thì ko đúng ạ

 

[befaint]

Dãy Mẫu là 121 thì ko đúng

Bạn lấy ngón tay xinh xinh ấn xóa những số trùng ở dãy mẫu đi là được liền.

 

[sacalataba127]

Bạn lấy ngón tay xinh xinh ấn xóa những số trùng ở dãy mẫu đi là được liền.

dạ e cũng muốn mà đời nhiều khi không cho phép, a giúp e với ạ

Bài đã được tự động gộp: 29/11/19

 

[sacalataba127]

giúp giùm e với mọi người ơi

 

[CHAOQUAY]

giúp giùm e với mọi người ơi

Dùng hàm tự tạo cho nhanh
Cú pháp: Dem(Vùng mẫu, Vùng so sánh)

Function Dem(Vung0 As Range, Vung1 As Range)
Dim Mang(9)
Dim i, j
For i = 1 To Vung0.Columns.Count
    j = Vung0(1, i)
    Mang(j) = 1
Next i
For i = 1 To Vung1.Columns.Count
    j = Vung1(1, i)
    If Mang(j) = 1 Then
        Dem = Dem + 1
        Mang(j) = ""
    End If
Next i
End Function

 

[Phuocam]

Bài này hay, úp giùm. Hahaha.

Bài này chắc phải dùng FREQUENCY()

 

[sacalataba127]

Dùng hàm tự tạo cho nhanh
Cú pháp: Dem(Vùng mẫu, Vùng so sánh)

Function Dem(Vung0 As Range, Vung1 As Range)
Dim Mang(9)
Dim i, j
For i = 1 To Vung0.Columns.Count
    j = Vung0(1, i)
    Mang(j) = 1
Next i
For i = 1 To Vung1.Columns.Count
    j = Vung1(1, i)
    If Mang(j) = 1 Then
        Dem = Dem + 1
        Mang(j) = ""
    End If
Next i
End Function

cảm ơn anh nhé. có vẻ vba làm được mọi việc nhỉ

 

[excel_lv1.5]

Bạn thử công thức này:
=COUNT(MATCH(IF(MATCH($F$7:$H$7,$F$7:$H$7,)={1,2,3},$F$7:$H$7),F10:H10,)), bấm Ctrl+Shift+Enter

 

[sacalataba127]

Bạn thử công thức này:
=COUNT(MATCH(IF(MATCH($F$7:$H$7,$F$7:$H$7,)={1,2,3},$F$7:$H$7),F10:H10,)), bấm Ctrl+Shift+Enter

không được bạn

 

[excel_lv1.5]

không được bạn

Sai chỗ nào bạn?

 

[Phuocam]

không được bạn

Bạn có kết thúc bằng Ctrl+Shift+Enter không?

 

[sacalataba127]

Bài đã được tự động gộp: 29/11/19

chắc là sai lúc Mẫu có số liệu trùng và dãy Mẫu thay đổi

 

[excel_lv1.5]

View attachment 229214

Bài đã được tự động gộp: 29/11/19

chắc là sai lúc Mẫu có số liệu trùng và dãy Mẫu thay đổi

Bạn dùng dấu phân cách ";", sửa công thức mảng bị sai, bạn nhận file!

 

[sacalataba127]

Cảm ơn mọi người ạ. Chúc diễn đàn mình phát triển mạnh mẽ