giúp đỡ cách đếm số ký tự không trùng lặp trong 1 ô

[manhmd169]

help me.

xin anh chị em trên diễn đàn giúp đỡ, mình gà gà excel quá nên nhờ mọi người giúp cho.

CÁCH ĐẾM CÁC KÝ TỰ KHÔNG TRÙNG LẶP TRONG 1Ô.

rất mong mọi người chỉ giáo

 

[HeSanbi]

Bạn tham khảo bài viết.

Luyện tập Code VBA: Lọc ký tự trùng nhau trong chuỗi !

Bài viết này dành cho các bạn đang học hoặc đam mê hoặc đang phát triển ứng Excel với VBA. Nhằm luyện tập, học hỏi và phát triển thêm kỹ năng viết Code VBA với những bài tập đơn giản. "Lọc ký tự trùng nhau trong chuỗi". -------------------------------- Bài tập: Viết một hàm lọc chuỗi bất kỳ...

www.giaiphapexcel.com

 

[VetMini]

Lâu lâu thử đếm vú "heo mẹ":
- đặt ra một mảng (0 đến 33000)
- duyệt chuỗi từ ký tự đầu đến ký tự áp cuối.
- nếu InStr = InStrRev = i thì ký tự là duy nhất: dem = dem + 1
- xong vòng lặp thì trị dem cho biết số ký tự khongp trùng lặp.
Bài này code VBA quá dễ. Vì vậy, công thức khủng vui hơn.

 

[hunglam123]

help me.

xin anh chị em trên diễn đàn giúp đỡ, mình gà gà excel quá nên nhờ mọi người giúp cho.

CÁCH ĐẾM CÁC KÝ TỰ KHÔNG TRÙNG LẶP TRONG 1Ô.

rất mong mọi người chỉ giáo

countifs + match + Median

 

[Phuocam]

Đang rảnh, hahaha ...

Public Function DemKhongTrung(ByVal txt As String) As Long
Do While Len(txt) > 0
    DemKhongTrung = DemKhongTrung + 1
    txt = Replace(txt, Left(txt, 1), "")
Loop
End Function

 

[hunglam123]

Đang rảnh, hahaha ...

Public Function DemKhongTrung(ByVal txt As String) As Long
Do While Len(txt) > 0
    DemKhongTrung = DemKhongTrung + 1
    txt = Replace(txt, Left(txt, 1), "")
Loop
End Function

nếu muốn không phân biệt chữ Hoa chữ thường làm sao ?

 

[Phuocam]

nếu muốn không phân biệt chữ Hoa chữ thường làm sao ?

Public Function DemKhongTrung(ByVal txt As String) As Long
txt = UCase(txt)' "Thêm dòng này"
Do While Len(txt) > 0
    DemKhongTrung = DemKhongTrung + 1
    txt = Replace(txt, Left(txt, 1), "")
Loop
End Function

 

[PacificPR]

Public Function DemKhongTrung(ByVal txt As String) As Long
txt = UCase(txt)' "Thêm dòng này"
Do While Len(txt) > 0
    DemKhongTrung = DemKhongTrung + 1
    txt = Replace(txt, Left(txt, 1), "")
Loop
End Function

Anh ơi. Theo em làm thêm cái Optional Byval nữa ạ
Nếu tu tu thì xét hoa còn fun thì không hoa hoét gì hết ạ

 

[Phuocam]

Anh ơi. Theo em làm thêm cái Optional Byval nữa ạ
Nếu tu tu thì xét hoa còn fun thì không hoa hoét gì hết ạ

Giờ làm biếng quá, hahaha ....

 

[VetMini]

Giải thuật của tôi đếm số ký tự chỉ hiện 1 lần (không bị trùng).
"abcabd" -> 2 (cd)
Bởi vậy mới gọi là đếm vú heo mẹ.

Anh ơi. Theo em làm thêm cái Optional Byval nữa ạ
Nếu tu tu thì xét hoa còn fun thì không hoa hoét gì hết ạ

Lắm chuyện. Lại theo phong cách một cái làm đủ thứ. Tập cho ngừoi dùng lười.
Nếu muốn không phân biệt hoa thường thì ngừoi dùng chỉ việc Upper chuỗi đàu vào lên thôi.
Phải chừa chỗ cho ngừoi ta tự quyền biến chớ.

 

[Phuocam]

Giải thuật của tôi đếm số ký tự chỉ hiện 1 lần (không bị trùng).
"abcabd" -> 2 (cd)
Bởi vậy mới gọi là đếm vú heo mẹ.

Hahaha ...

Public Function DemVuHeoMe(ByVal txt As String) As Long
Dim t As String
Do While Len(txt) > 0
    t = Replace(txt, Left(txt, 1), "")
    If Len(txt) - Len(t) = 1 Then DemVuHeoMe = DemVuHeoMe + 1
    txt = t
Loop
End Function

 

[Phuocam]

... .

 

[HeSanbi]

Đếm duy nhất có phân biệt hoa thường:
=CharUniqueCount("aAbBcCdef", True)
=CharUniqueCount("aAbBcCdef", False)
----------------------------------------

Public Function CharUniqueCount(ByVal Text As String, _
                 Optional ByVal IgnoreCase As Boolean = False) As Long
  While Text <> vbNullString
    Text = Replace(Text, Left(Text, 1), vbNullString, , , -IgnoreCase)
    CharUniqueCount = CharUniqueCount + 1
  Wend
End Function

----------------------------------------

Đếm có điều kiện, có phân biệt hoa thường:

=CharCount("aAbBcCdef", "=1", True)
=CharCount("aabbccdef", ">1")
=CharCount("aaabbbccdef", ">2")
=CharCount("aaabbbccdef", "=2")
=CharCount("aaabbbccdef", "<>2")
----------------------------------------

Public Function CharCount(ByVal Text As String, _
                 Optional ByVal Expression As String = "=1", _
                 Optional ByVal IgnoreCase As Boolean = False) As Long
  Dim oText As String
  While Text <> vbNullString
    Text = Replace(Text, Left(Text, 1), vbNullString, , , -IgnoreCase)
    If Evaluate(Len(oText) & "-" & Len(Text) & Expression) Then CharCount = CharCount + 1
    oText = Text
  Wend
End Function

 

[excel_lv1.5]

help me.

xin anh chị em trên diễn đàn giúp đỡ, mình gà gà excel quá nên nhờ mọi người giúp cho.

CÁCH ĐẾM CÁC KÝ TỰ KHÔNG TRÙNG LẶP TRONG 1Ô.

rất mong mọi người chỉ giáo

Bạn có thể sử dụng công thức này:
=SUMPRODUCT(N(LEN(A1)-LEN(SUBSTITUTE(A1,MID(A1,ROW($1:$100),1),""))=1))