AE giúp dùm Đếm số lần xuất hiện của một con số trong một cột số

[hienkieudiem]

Mình có tập tin kèm theo , mình dùng hàm countif không ra. các bạn giúp dùm mình dùng hàm nào nếu có code vba cho mình xin và xin hướng dẩn cách sử dung cụ thể dùm,
Ghi chú: 2 cột là kiểu số,
-như đếm 04 Không có xuất hien là 0, 57 có 2 lần xuất hiện là 2


xin cam on

 

[ndu96081631]

Mình có tập tin kèm theo , mình dùng hàm countif không ra. các bạn giúp dùm mình dùng hàm nào nếu có code vba cho mình xin và xin hướng dẩn cách sử dung cụ thể dùm
xin cam on

Kết quả bạn muốn là bao nhiêu? Sao không ghi vào file luôn. Nhìn vậy ai biết làm thế nào chứ

 

[popog]

chưa hiểu bạn định hỏi gì, file cũng sơ sài sao đó, tui cũng chẳng hiểu luôn

 

[hienkieudiem]

bồ sung thêm cho ban popog cột D là cột tham chiếu cột c là pham vi tham chiếu $c$2:$c$14
Cám on ban quan tâm chủ đề

 

[MonaLisa7775]

He he, Hiếu kiều diễm (nam hay nữ hè?) muốn đếm 1 số xuất hiện bao nhiêu lần trong 2 số cuối cột C chứ gì? Chơi số đề ha! Mét bà ngoại à!

Công thức nè:
E2 =SUMPRODUCT((MOD($C$2:$C$14,100)=D2)*1)

 

[hienkieudiem]

không ra nửa ban MonaLisa7775 Ơi
Các ban xem macro của mình chỉnh sửa dùm nó cũng o thực thi được chan quá
Function Tach(Mang As Range) As Long
Dim Bien As Range
For Each Bien In Mang.Bien
Tach = CountIf(Bien)
Next Bien
End Function
Xin Cam on
- Chủ đề nẩy Ai cũng ngỡ là số đề cả, Minh xin đính chính không phải là số đề đâu mình làm của hàng bán nử trang đương nhiên có phần mềm rồi nhưng mình muốn phân loại theo từng vùng khách hàng
sài loại nào mà bổ sung thơ
http://www.giaiphapexcel.com/forum/member.php?422552-MonaLisa7775

 

[sealand]

Mình nghĩ là bạn chấp nhận đến cả VBA thì chắc là không phải là không có cách. Vướng mắc chính là phải diễn giải đếm như thế nào và bạn nên đếm thủ công vài số ví dụ đi.
Mình nghĩ nhiều bạn có thể giúp bạn nhưng không hiểu bạn định làm như thế nào.
Riêng cái đoạn code của bạn thì dùng công thức cho nhanh.

 

[MonaLisa7775]

Sao lại không được chứ!
Không phải số đề thì tha, không mét bà ngoại nha! Nhưng chưa nói cho biết Hiếu là tên con trai sao lại "kiều diễm"?

 

[ChanhTQ@]

Macro của bạn đây

Các ban xem macro của mình chỉnh sửa dùm nó cũng o thực thi được chan quá

Option Explicit
Sub Dem()
 Dim Rng As Range, sRng As Range, Cls As Range
 Dim Num, MyAdd As String, Dem As Byte
 
 Set Rng = Range([C2], [C65500].End(xlUp))
 For Each Cls In Range([d2], [d2].End(xlDown))
    Num = IIf(Cls.Value < 10, "0" & CStr(Cls.Value), Cls.Value)
    
    Set sRng = Rng.Find(Num, , xlFormulas, xlPart)
    If sRng Is Nothing Then
        Cls.Offset(, 1).Value = "Nothing"
    Else
        Dem = 0:            MyAdd = sRng.Address
        Do
            Dem = Dem + 1
            Set sRng = Rng.FindNext(sRng)
        Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
        Cls.Offset(, 1).Value = Dem
    End If
 Next Cls
End Sub

Một vài chú í với tác giả:
(|) Tìm số 84 ra kết quả là 4 do tìm thấy từ các số 184, 846, 984 & 584;
(|) Tìm số nhỏ hơn 10 như 04 sẽ chỉ thấy từ các số 104, 204,. . . & sẽ không thấy từ các số 314, 754, . . .

/(/ếu cần, bạn nói rõ hơn trong ~ trường hợp này & thân ái!