Đếm số lần xuất hiện của dữ liệu nằm trong trang tính

[Sơn Mã]

Mình có trường hợp này rất mong sự giúp đỡ của GPE!
Các giá trị ở sheet1: từ 0 đến 99. Hãy Đếm số lần xuất hiện của từng giá trị trong sheet1 => kết quả đếm được dán sang sheet3.
Ví dụ trong bảng giá trị sheet1: số 10 có 15 lần xuất hiện => kết quả đếm dán sang sheet3 như minh hoạ. Mong GPE giúp đỡ. Xin cảm ơn!

 

[nghiaphuc]

Mình có trường hợp này rất mong sự giúp đỡ của GPE!
Các giá trị ở sheet1: từ 0 đến 99. Hãy Đếm số lần xuất hiện của từng giá trị trong sheet1 => kết quả đếm được dán sang sheet3.
Ví dụ trong bảng giá trị sheet1: số 10 có 15 lần xuất hiện => kết quả đếm dán sang sheet3 như minh hoạ. Mong GPE giúp đỡ. Xin cảm ơn!

Chỉ là hàm COUNTIF thôi mà bạn. Bạn thử mà xem.

 

[Sơn Mã]

Chỉ là hàm COUNTIF thôi mà bạn. Bạn thử mà xem.

Cảm ơn bạn, bạn giúp mình tham khảo về VBA được không? Cảm ơn bạn nhiều!

 

[Nguyễn Hồng Quang]

Tại B2 của sheet3 gõ
=SUMPRODUCT((Sheet1!$A$2:$AA$100=A2)+0)*1
Rồi fill xuống
Thân gửi

VBA thì có liền:
Sub demso


Range("B2").Select
Selection.FormulaArray = "=SUMPRODUCT((Sheet1!R1C1:R100C27=(ROW()-2)+0)*1)"
Selection.AutoFill Destination:=Range("B2:B101")


End Sub

 

[nghiaphuc]

Cảm ơn bạn, bạn giúp mình tham khảo về VBA được không? Cảm ơn bạn nhiều!

Muốn code thì thế này:
[GPECODE=vb]Sub ThongKe()
Dim i As Long, j As Long, Tmp, Arr()
Tmp = Sheets("Sheet1").[A2].CurrentRegion.Value
ReDim Arr(1 To 100)
For i = 1 To UBound(Tmp, 1)
For j = 1 To UBound(Tmp, 2)
If Not IsEmpty(Tmp(i, j)) Then Arr(Tmp(i, j) + 1) = Arr(Tmp(i, j) + 1) + 1
Next
Next
Sheets("Sheet3").[B2].Resize(100).Value = WorksheetFunction.Transpose(Arr)
End Sub[/GPECODE]

 

[Sơn Mã]

Muốn code thì thế này:
[GPECODE=vb]Sub ThongKe()
Dim i As Long, j As Long, Tmp, Arr()
Tmp = Sheets("Sheet1").[A2].CurrentRegion.Value
ReDim Arr(1 To 100)
For i = 1 To UBound(Tmp, 1)
For j = 1 To UBound(Tmp, 2)
If Not IsEmpty(Tmp(i, j)) Then Arr(Tmp(i, j) + 1) = Arr(Tmp(i, j) + 1) + 1
Next
Next
Sheets("Sheet3").[B2].Resize(100).Value = WorksheetFunction.Transpose(Arr)
End Sub[/GPECODE]

Cảm ơn bạn Nghĩa Phúc và bạn Nguyễn Hồng Quang rất nhiều! Ok lắm ạ!

 

[nghiaphuc]

Cảm ơn bạn Nghĩa Phúc và bạn Nguyễn Hồng Quang rất nhiều! Ok lắm ạ!

"Ăn gian" một chút thì code nó thế này:
[GPECODE=vb]Sub ThongKe1()
Sheet3.[B2:B101] = "=COUNTIF(Sheet1!R2C1:R100C25,RC[-1])"
Sheet3.[B2:B101].Value = Sheet3.[B2:B101].Value
End Sub[/GPECODE]

 

[Nguyễn Hồng Quang]

"Ăn gian" một chút thì code nó thế này:
[GPECODE=vb]Sub ThongKe1()
Sheet3.[B2:B101] = "=COUNTIF(Sheet1!R2C1:R100C25,RC[-1])"
Sheet3.[B2:B101].Value = Sheet3.[B2:B101].Value
End Sub[/GPECODE]

Bác nghiaphuc "vui tính" rồi
Chúc bác và các ae trên GPE cuối tuần vui vẻ

 

[nghiaphuc]

Bác nghiaphuc "vui tính" rồi Chúc bác và các ae trên GPE cuối tuần vui vẻ

Tôi chưa hiểu ý bạn. Code trên có vấn đề gì à?