Đếm số lượng xuất hiện liên tục của 1 số trong 1 dòng

[congthanh6868]

Chào các bạn,

Mình đang mong muốn tìm công thức đếm số lần lượng xuất hiện liên tục của 1 số trong 1 dòng, ví dụ ở đây là đếm số 11.
Mong nhận được sự giúp đỡ của các bạn.
Cám ơn các bạn rất nhiều.

 

[SA_DQ]

Mình chỉ làm được bằng UDF mà thôi, bạn tham khảo

 

[congthanh6868]

Công thức bạn làm giúp đúng ý mình cần nhưng mình chưa hiểu rõ công thức lắm, ví dụ mình muốn áp dụng công thức của bạn bạn cho những lần đếm sau này thì làm thế nào? Mong nhận được sự giúp đỡ cụ thể hơn của bạn. Cám ơn bạn nhiều.

 

[hngiatuong]

Mượn CT của
congthanh6868

Sửa Z2 thôi =DemSoLan(A2,D2:IP2).

 

[ChanhTQ@]

Xin nói rõ về hàm tự tạo trên:

Công thức bạn làm giúp đúng ý mình cần nhưng mình chưa hiểu rõ công thức lắm,
ví dụ mình muốn áp dụng công thức của bạn bạn cho những lần đếm sau này thì làm thế nào? Mong nhận được sự giúp đỡ cụ thể hơn của bạn. Cám ơn bạn nhiều.

Đó là hàm tự tạo do người dùng viết; Không fải là công thức sẵn có trong excel.
Hàm này cần được cung cấp 2 tham biến (TB)

TB1: Đó là số mà ta cần khảo sát (Như 11 hay 88 (dòng 8 của trang tính) trong file)

TB2: Là vùng chứa các số cần khảo sát (KS);
Hiện tại hàm này chỉ thích ứng cho vùng KS là các ô liền nhau trong 1 hàng
(Nếu cần KS vùng dữ liệu liền nhau trong 1 cột thì cần chỉnh lại hàm vài chổ cần thiết)

Nội dung hàm có trong file đính kèm

Để có vẻ "Hàn lâm" hơn, ta có thể sửa lại hàm đó như sau:

Option Explicit
Function DemSoLan(Num As Byte, Rng As Range) As String
 Dim Cls As Range
 Dim OK As Boolean, J As Byte
 
 For Each Cls In Rng(1).Resize(, Rng.Cells.Count + 1)
    If Cls.Value = Num Then
        J = J + 1
        If Not OK Then OK = True
    Else
        If OK Then
            DemSoLan = DemSoLan & "," & Str(J)
            J = 0:          OK = False
        End If
    End If
 Next Cls
 DemSoLan = Mid(DemSoLan, 2, Len(DemSoLan))
End Function

Thân!

 

[Quang_Hải]

Cùng tham gia 1 code cho đông vui, kết quả như nhau nhưng cách viết khác tẹo

Function DEM(Vungdk As Range, VungDem As Range) As String
Dim TAM(), I As Byte, Kq As String, Dk As Long, K As Byte
TAM = VungDem.Value
Dk = Vungdk
For I = 1 To UBound(TAM, 2)
   If TAM(1, I) = Dk Then
      K = K + 1
   Else
      If K Then Kq = Kq & "," & K
      K = 0
   End If
Next
If K Then Kq = Kq & "," & K
DEM = Replace(Kq, ",", "", , 1)
End Function

 

[congthanh6868]

Mượn CT của
congthanh6868

Sửa Z2 thôi =DemSoLan(A2,D2:IP2).

Tại sao không được đến IV2 bạn nhỉ?

 

[hngiatuong]

Tại sao không được đến IV2 bạn nhỉ?

Cái này thì hỏi các anh trong diễn đàn thôi.

 

[siwtom]

Cái này thì hỏi các anh trong diễn đàn thôi.

Nếu tôi đoán được ý (vì người hỏi viết sai. Hoặc nói cộc lốc nên chả biết cụ thể nói về cái gì) thì:

Không phải là không dùng được đến tận cell IV2. Tất nhiên là được

Code

Range("IV2").Value = "hichic"

hoàn toàn hợp lệ.

Nhưng code

Range("IW2").Value = "hichic"

lại không hợp lệ.

Bởi tập tin của người hỏi là tập tin XLS. Mà XLS chỉ có nhiều nhất là 256 cột thôi - IV là cột thứ 256 còn IW là cột thứ 257

Tức không dùng được đến IW

 

[hngiatuong]

Nếu tôi đoán được ý (vì người hỏi viết sai) thì:

Không phải là không dùng được đến tận cell IV2. Tất nhiên là được

Code

Range("IV2").Value = "hichic"

hoàn toàn hợp lệ.

Nhưng code

Range("IW2").Value = "hichic"

lại không hợp lệ.

Bởi tập tin của người hỏi là tập tin XLS. Mà XLS chỉ có nhiều nhất là 256 cột thôi - IV là cột thứ 256 còn IW là cột thứ 257

Tức không dùng được đến IW

Nhưng sao VD như a1=sum(b1:iv1) lại được

 

[siwtom]

Nhưng sao VD như a1=sum(b1:iv1) lại được

Tôi viết không rõ, khó hiểu thế sao? Bó tay.

 

[congthanh6868]

Không biết đề bài này thì có dùng công thức bình thường được không các Bạn nhỉ?

 

[Let'GâuGâu]

Không biết đề bài này thì có dùng công thức bình thường được không các Bạn nhỉ?

chắc cũng được nhưng ko có đẹp

 

[congthanh6868]

chắc cũng được nhưng ko có đẹp

Cám ơn Bạn giúp cho công thức, nhưng đúng như Bạn nói trông cũng chưa được đẹp lắm vì dữ liệu khi làm việc thực tế sẽ gấp 20-30 lần liền.