Đếm số dòng có dữ liệu trong VBA

Với những bạn thường sử dụng VBA thì việc dùng code đếm số dòng có dữ liệu trong VBA khá đơn giản, thế nhưng, một số bạn lại gặp khó khăn. Bài viết này sẽ giúp bạn biết cách dùng VBA tìm dòng cuối cùng có dữ liệu trong Excel đơn giản và chính xác. 

Cách dùng code VBA tìm dòng cuối cùng có dữ liệu trong Excel 

Khi làm việc với VBA Excel, bạn cần phải xác định được dòng cuối cùng có dữ liệu trong một cột của sheet bất kỳ, từ đó, bạn sẽ có dữ liệu làm căn cứ để điền vào dòng tiếp theo. Dưới đây là một số loại code thường được dùng để tìm dòng cuối có dữ liệu trong Excel mà bạn có thể tham khảo: 

• Sử dụng UsedRange
• Sử dụng Range với thuộc tính End (xUp)
• Sử dụng Cells với thuộc tính End (xlUp)
• Sử dụng Cells hoặc Range với thuộc tính End(xlDown)

Sử dụng UsedRange

Tìm dòng cuối cùng có dữ liệu trong Excel bằng cách sử dụng UsedRange tương tự như bạn nhấn Ctrl + End. Nếu như bạn chưa biết được Ctrl + End, bạn có thể sử dụng UsedRange: 

Sheet1.UsedRange.Rows(Sheet1.UsedRange.Rows.Count).Row

Nguồn: Học Excel Online

Sử dụng Range với thuộc tính End (xUp)

Lr = Range(“A” & Rows.Count).End(xlUp).Row

Nguồn: Học Excel Online

Rows.Count sẽ trả về tổng số dòng trong Sheet Excel đang làm việc. Phương thức End(Up) cũng giống như bạn chọn ô A và dòng cuối cùng trong Excel và nhấn Ctrl + mũi tên lên. 

Trong quá trình bạn viết code VBA, việc xác định dòng cuối cùng có dữ liệu thực sự quan trọng. Tức là, bạn bắt buộc phải tìm được dòng cuối cùng có dữ liệu, sau đó bạn mới có thể ghi dữ liệu vào dòng tiếp theo trong Data và lấy đó làm căn cứ để điền vào dòng ngay sau dòng cuối cùng.  

Sử dụng Cells với thuộc tính End (xlUp)

Lr = Cells(Rows.Count, 2).End(xlUp).Row

Nguồn: Học Excel Online

Sử dụng Cells với thuộc tính End (xlUp) là cách khá đơn giản để tìm dòng cuối cùng có dữ liệu trong Excel. Với phương thức End (xlUp), bạn cũng sẽ tìm được dòng cuối cùng có dữ liệu của cột B như hình trên.   

cells(RowIndex, ColumnIndex)

Cells(Rows.Count,2): Sẽ trả về ô có địa chỉ hàng là Rows.Count và địa chỉ cột là 2 (cột B). 
Khóa học VBA

Sử dụng Cells hoặc Range với thuộc tính End(xlDown)

Ngoài những cách trên, bạn hoàn toàn có thể sử dụng Cells hoặc Range với thuộc tính End(xlDown) để tìm dòng cuối cùng có dữ liệu trong Excel. 

Sheet1.Range(“A2”).End(xlDown).Row

Nguồn: Học Excel Online

Kết luận: Bài viết đã giúp bạn sử dụng một số code VBA tìm dòng cuối cùng có dữ liệu trong Excel. Nếu còn băn khoăn, hãy comment bên dưới để NIIT-ICT Hà Nội kịp thời giải đáp và đừng quên ghé thăm website https://niithanoi.edu.vn/ thường xuyên để không bỏ lỡ những bài viết hữu ích khác nhé!