Xin trợ giúp về đếm số lần xuất hiện của một số.

[zPeterPan]

Em chào các Thầy cô và các anh chị em trên diễn đàn. . . Xin nhờ mọi người giúp em với ạ. . .
Em muốn đếm số lần xuất hiện của các số trong mảng. . . giống như dùng hàm " =COUNTIF($C4:$AC4,BF$3) "
Sơ nội dung cần là:
- Đếm số lần xuất hiện của lần lượt các số "0,1,2,3,4,5,6,7,8,9 " trong bảng Số Trước 54 ( Dòng 3, Từ cột 58 đến cột 67 ) với từng dòng trong mảng Trước 54 ( Từ Dòng 4, Từ cột 3 đến cột 29)
- Đếm số lần xuất hiện của lần lượt các số "0,1,2,3,4,5,6,7,8,9 " trong bảng Số Sau 54 ( Dòng 3, Từ cột 68 đến cột 77 ) với từng dòng trong mảng Sau 54 ( Từ Dòng 4, Từ cột 30 đến cột 56)
Nhờ mọi người giúp em với ạ. . . Em xin cảm ơn ạ. . .

 

[CHAOQUAY]

Em chào các Thầy cô và các anh chị em trên diễn đàn. . . Xin nhờ mọi người giúp em với ạ. . .
Em muốn đếm số lần xuất hiện của các số trong mảng. . . giống như dùng hàm " =COUNTIF($C4:$AC4,BF$3) "
Sơ nội dung cần là:
- Đếm số lần xuất hiện của lần lượt các số "0,1,2,3,4,5,6,7,8,9 " trong bảng Số Trước 54 ( Dòng 3, Từ cột 58 đến cột 67 ) với từng dòng trong mảng Trước 54 ( Từ Dòng 4, Từ cột 3 đến cột 29)
- Đếm số lần xuất hiện của lần lượt các số "0,1,2,3,4,5,6,7,8,9 " trong bảng Số Sau 54 ( Dòng 3, Từ cột 68 đến cột 77 ) với từng dòng trong mảng Sau 54 ( Từ Dòng 4, Từ cột 30 đến cột 56)
Nhờ mọi người giúp em với ạ. . . Em xin cảm ơn ạ. . .
View attachment 263562

Sub abc()
Dim nguon
Dim kq() As Integer
Dim i, j, k
nguon = Sheet1.Range("C4", Sheet1.Range("BD4").End(xlDown))
ReDim kq(1 To UBound(nguon), 1 To 20)
For i = 1 To UBound(nguon)
    For j = 1 To 27
        k = nguon(i, j)
        kq(i, k + 1) = kq(i, k + 1) + 1
    Next j
    For j = 28 To 54
        k = nguon(i, j)
        kq(i, k + 11) = kq(i, k + 11) + 1
    Next j
Next i
Sheet1.Range("BF4").Resize(UBound(nguon), 20) = kq
End Sub

---
Dự án gì mà "khủng" thế bạn

 

[zPeterPan]

Dự án gì mà "khủng" thế bạn

Cảm ơn bác. . . Xác suất thống kê thôi bác ạ. . .