Đếm số dòng có dữ liệu trong 1 sheet bằng VBA và gán giá trị đó cho một biến.

[khanh3]

Mình là thành viên mới. Các bạn có thể cho mình hỏi làm cách nào để đếm số dòng có dữ liệu trong 1 sheet bằng VBA và gán giá trị đó cho một biến. Mình đã thử nhiều cách như dùng countif, record macro nhưng vẫn không được .

Mong các bạn góp ý.
Tks!

 

[nghiaphuc]

Mình là thành viên mới. Các bạn có thể cho mình hỏi làm cách nào để đếm số dòng có dữ liệu trong 1 sheet bằng VBA và gán giá trị đó cho một biến. Mình đã thử nhiều cách như dùng countif, record macro nhưng vẫn không được .

Mong các bạn góp ý.
Tks!

Không biết mục đích cuối cùng của việc đếm này là gì. Nếu để biết hàng cuối cùng có dữ liệu là hàng nào thì bạn thử code sau:

Sub Test()
    MsgBox Sheets("Sheet1").Cells.SpecialCells(xlCellTypeLastCell).Row
End Sub

Nếu không đúng thì bạn thử hàm COUNTA xem có được không.

 

[SA_DQ]

To NghiaPhuc & các bạn xài VBA để tìm dòng/cột cuối

Sẽ chưa đúng nếu xài Code trong trường hợp sau:


(1) Tô chọn vùng nào đó có dữ liệu ở nhiều hàng & cột & bấm fím nóng cho chạy macro;
Macro tất nhiên sẽ cho ta thông báo đúng!

(2) Xóa đi 1 số hàng & cột & cho chạy lại ngay, thì macro báo kết quả sai

(3) Kết quả lại sẽ báo đúng nếu như chúng ta bấm lưu file & chạy lại macro!

Trong trường hợp tìm dòng hay cột cuối có dữ liệu, nên dùng fương thức FIND("*") là chắc cú!

 

[khanh3]

Cám ơn 2 bạn đã góp ý giúp mình, mình xin nói cụ thể hơn về công việc mà mình đang muốn thực hiện, là để kiểm tra số dòng có dữ liệu trong 1 sheet để thực hiện vòng lặp 1 cách hiệu quả hơn. Trong excel 2003 thì mình chỉ cần nhập công thức =counta(A:A), nhưng trong VBA thì lại không biết làm thế nào cho đúng.

Mong được các bạn góp ý.
TKS!

 

[MinhCong]

Xác định dòng cuối của cột A

Sheet1.range("A65536").end(xlup).row

 

[ChanhTQ@]

Bạn đến đây tham khảo

http://www.giaiphapexcel.com/forum/...o-di-chuyển-đến-sau-dòng-dữ-liệu-cuối-cùng#10

 

[domanhquynh]

Mình cần nhờ anh chị em giúp đỡ yêu cầu như ảnh đính kèm.
Mọi người xem và hỗ trợ giúp mình với.
Thanks!

 

[SA_DQ]

Thay vì đưa cái ảnh lên, bạn nên đưa file lên; Chả ai rỗi đến mức đọc hết iêu cầu của bạn chứ nói gì đến chuyện gõ lại dữ liệu từ hình của bạn!