Đếm số trong 1 chuỗi.

[bluecat]

Tôi có 1 chuỗi như sau : "12158192635036856350".
Cụ thể nó là các số 2 chữ số ghép lại : 12-15-81-92-63-50-36-85-63-50.
Xin hỏi làm sao để đếm được mỗi số xuất hiện bao nhiêu lần trong chuỗi trên?

 

[ndu96081631]

Tôi có 1 chuỗi như sau : "12158192635036856350".
Cụ thể nó là các số 2 chữ số ghép lại : 12-15-81-92-63-50-36-85-63-50.
Xin hỏi làm sao để đếm được mỗi số xuất hiện bao nhiêu lần trong chuỗi trên?

Vầy nè:

=LEN(Chuổi gốc)-LEN(SUBSTITUTE(Chuổi gốc, Số cần đếm,""))

Ví dụ:
- Chuổi nằm ở cell A1
- Số cần đếm là số 5
Vậy công thưc sẽ là:

=LEN($A$1)-LEN(SUBSTITUTE($A$1,5,""))

 

[hoangdanh282vn]

Tôi có 1 chuỗi như sau : "12158192635036856350".
Cụ thể nó là các số 2 chữ số ghép lại : 12-15-81-92-63-50-36-85-63-50.
Xin hỏi làm sao để đếm được mỗi số xuất hiện bao nhiêu lần trong chuỗi trên?

Nguyên tắc của bài toán này là một chuỗi số gồm nhiều số với mỗi số có 2 chữ số, một chữ số trong số này không thể là một chữ số trong số khác
VD : chuỗi "1213" chỉ có 2 số là 12 và 13, không phải 12; 21; 13.
Tìm xem mỗi cắp số đó xuất hiện trong chuỗi số đó bao nhiêu lần.

Nếu đúng như vậy thì bạn dùng công thức sau :

Giả sử ô A1 chứa chuỗi :12158192635036856350
Giả sử ô B1 chứa số cần tìm :
Công thức ô C1 như sau :

=SUMPRODUCT(--(MID($A$1,2*ROW(INDIRECT("1:"&LEN($A$1)/2))-1,2)=B1))

Nếu không đúng vậy thì anh NDU đã trả lời cho bạn rồi đó.

 

[bluecat]

Nguyên tắc của bài toán này là một chuỗi số gồm nhiều số với mỗi số có 2 chữ số, một chữ số trong số này không thể là một chữ số trong số khác
VD : chuỗi "1213" chỉ có 2 số là 12 và 13, không phải 12; 21; 13.
Tìm xem mỗi cắp số đó xuất hiện trong chuỗi số đó bao nhiêu lần.

Nếu đúng như vậy thì bạn dùng công thức sau :

Giả sử ô A1 chứa chuỗi :12158192635036856350
Giả sử ô B1 chứa số cần tìm :
Công thức ô C1 như sau :

=SUMPRODUCT(--(MID($A$1,2*ROW(INDIRECT("1:"&LEN($A$1)/2))-1,2)=B1))

Nếu không đúng vậy thì anh NDU đã trả lời cho bạn rồi đó.

Cái này thì đúng ý của mình rồi, bạn vui lòng chỉ mình code VBA với bài toán trên nha. Thanks!

 

[hoangdanh282vn]

Cái này thì đúng ý của mình rồi, bạn vui lòng chỉ mình code VBA với bài toán trên nha. Thanks!

Với VBA thì quá dễ. Gửi bạn hàm CountR :

Function CountR(StrN As String, Str As String)
Dim i As Long
If Len(StrN) Mod 2 <> 0 Then CountR = "Err": Exit Function
For i = 1 To Len(StrN) - 1 Step 2
    If Mid(StrN, i, 2) = Str Then CountR = CountR + 1
Next i
End Function