Đếm giá trị trong cột excel bằng VBA

Tôi có hai cột chứa dữ liệu trong một cột. Tôi có Ngày khác nhau, tôi cần đếm tất cả các giá trị trong cột này và hiển thị giá trị trong ô khác.

Bảng tính này chứa một triệu dữ liệu nhưng dữ liệu này có thể khác nhau. Tôi cần một mã để đếm dữ liệu này với phạm vi không giới hạn.

Tôi có mã này nhưng không hoạt động. Tôi cần và mảng để đếm dữ liệu rất nhanh.

Số lượng phụ()
Dim v_Count1 Càng dài, v_Count2 Càng dài
v_Count1 = 0: v_Count2 = 0

rng_RngCol = Ô(Rows.Count, "H").End(xlUp).Row
rng_RngCol = Ô(Rows.Count, "E").End(xlUp).Row

Với i = 2 Tới rng_RngCol


Nếu Ô (i, 5). Giá trị = Ngày thì '<==Trong cộtE Tôi có Ngày khác nhau.
v_Count2 = v_Count2 + 1
Trang tính("Trang tính1").Chọn
Phạm vi ("D3"). Giá trị = v_Count2
Kết thúc nếu

Nếu Cells(i, 8).Value = "Make" thì
v_Count1 = v_Count1 + 1
Trang tính("Trang tính1").Chọn
Phạm vi ("D2"). Giá trị = v_Count1
Kết thúc nếu

Tiếp theo tôi

Kết thúc phụ

Trả lời:

Điều này có làm được những gì bạn muốn không?

Số lượng phụ()
Bảng tính("Sheet1").Range("D3").Value = Application.CountIf(Range("E:E"), Date)
Bảng tính("Sheet1").Range("D2").Value = Application.CountIf(Range("H:H"), "Make")
Kết thúc phụ