Hàm đếm số dòng (có dòng trùng) (1 người xem)

[tiencuagai]

Các bác giúp em đếm số khách hàng (bỏ khách hàng trùng) trong file excel sau ạ:
Trước tiên: Sheet "Đơn giản": Điền công thức để lấy giá trị là có 6 khách hàng tất cả
Sau đó: Sheet "Phức tạp": Điền công thức để lấy giá trị là có 9 khách hàng tất cả.
Thank các bác nhiều ạ

 

[Lê Duy Thương]

công thức bên sheet đơn giản =

=SUM(IF(A2:A13<=0,0,(1/COUNTIF(A2:A13,A2:A13))))

ctrl+shift+enter

 

[tiencuagai]

Cám ơn bạn nha, công thức rất ok

 

[canguocs]

Cám ơn bạn nha, công thức rất ok

=SUM(1/COUNTIF(A2:A13,A2:A13))
Như thế này rồi ctrl+shift+enter cũng thấy ra bạn ah
Còn ý hai chưa nghĩ ra
ý hai thử thủ công thế này xem có được ko bạn nhé

 

[tiencuagai]

Cảm ơn bạn nhưng công thức của bạn sẽ bị lỗi khi A2:A13 có dòng trắng.
Mình cũng vừa học được 1 công thức ko cần Ctrl+Shift+Enter để các bạn tham khảo luôn nhé:
=SUMPRODUCT((A2:A13<>"")/(COUNTIF(A2:A13,A2:A13&"")))

 

[gtri]

=SUM(1/COUNTIF(A2:A13,A2:A13))
Như thế này rồi ctrl+shift+enter cũng thấy ra bạn ah
Còn ý hai chưa nghĩ ra

Với ý 2, số tên trong một ô không cố định mà dùng hàm có lẽ không ổn

 

[canguocs]

Cảm ơn bạn nhưng công thức của bạn sẽ bị lỗi khi A2:A13 có dòng trắng.
Mình cũng vừa học được 1 công thức ko cần Ctrl+Shift+Enter để các bạn tham khảo luôn nhé:
=SUMPRODUCT((A2:A13<>"")/(COUNTIF(A2:A13,A2:A13&"")))

Nếu có dòng trắng thì bạn sum(if(A2:A13<>0,1/countif(A2:A13,A2:A13),0)) ctrl+shift+enter là được

 

[canguocs]

Với ý 2, số tên trong một ô không cố định mà dùng hàm có lẽ không ổn

Vâng, em cũng nghĩ thế, có khi phải dùng code ah

 

[canguocs]

Cảm ơn bạn nhưng công thức của bạn sẽ bị lỗi khi A2:A13 có dòng trắng.
Mình cũng vừa học được 1 công thức ko cần Ctrl+Shift+Enter để các bạn tham khảo luôn nhé:
=SUMPRODUCT((A2:A13<>"")/(COUNTIF(A2:A13,A2:A13&"")))

Cảm ơn bạn nhé, bản chất cũng là 1/countif vi A2:A13<>0 trả về True , mà true =1

 

[Hau151978]

Câu sau chắc phải dùng vba.

Function pt(r As Range)
Dim dic As Object, arr, c, i
Set dic = CreateObject("Scripting.Dictionary")
For Each c In r
arr = Split(c.Text, ",")
For i = LBound(arr) To UBound(arr)
If Not dic.Exists(Trim(arr(i))) Then dic.Add Trim(arr(i)), 0
Next
Next
pt = dic.Count
Set dic = Nothing
End Function

Tại ô B2 bạn nhập công thức = PT(A2:A13)

 

[canguocs]

Câu sau chắc phải dùng vba.

Function pt(r As Range)
Dim dic As Object, arr, c, i
Set dic = CreateObject("Scripting.Dictionary")
For Each c In r
arr = Split(c.Text, ",")
For i = LBound(arr) To UBound(arr)
If Not dic.Exists(Trim(arr(i))) Then dic.Add Trim(arr(i)), 0
Next
Next
pt = dic.Count
Set dic = Nothing
End Function

Tại ô B2 bạn nhập công thức = PT(A2:A13)

Dùng dic đã giải quyết được bài toán
cảm ơn anh Hậu nhé

 

[kingofarms]

Giúp mình vấn đề trong file với

 

[ndu96081631]

Giúp mình vấn đề trong file với

Công thức bạn cần là:

=COUNT(1/FREQUENCY(IF(B2:B73="x",A2:A73),IF(B2:B73="x",A2:A73)))

Bấm Ctrl + Shift + Enter để kết thúc
(Nếu dữ liệu của bạn khác hơn thì sẽ dùng công thức khác hơn)