cho em hỏi về code lấy dòng cuối cùng có dữ liệu

  • Thread starter Thread starter giaosy
  • Ngày gửi Ngày gửi
Liên hệ QC

giaosy

Thành viên thường trực
Tham gia
6/12/06
Bài viết
205
Được thích
144
các bác giải thích giúp em tại sao dòng lệnh này
Range("B12").End(xlDown).Row
lúc thì cho ra kết quả là 65.... (dòng cuối cùng của bảng)
lúc lại cho ra kết quả là số thứ tự dòng cuối cùng của vùng dữ liệu.

em muốn tìm ra dòng cuối cùng của vùng dữ liệu để đưa dữ liệu vào dòng tiếp theo thì phải xử lý dòng lệnh trên như thế nào hoặc có lệnh nào khác hay hơn không, mong các bác giúp em với.

cảm ơn các bác nhiều !
 
các bác giải thích giúp em tại sao dòng lệnh này
Range("B12").End(xlDown).Row
lúc thì cho ra kết quả là 65.... (dòng cuối cùng của bảng)
lúc lại cho ra kết quả là số thứ tự dòng cuối cùng của vùng dữ liệu.

em muốn tìm ra dòng cuối cùng của vùng dữ liệu để đưa dữ liệu vào dòng tiếp theo thì phải xử lý dòng lệnh trên như thế nào hoặc có lệnh nào khác hay hơn không, mong các bác giúp em với.

cảm ơn các bác nhiều !
Range("B12").End(xlDown).Row
là dòng cuối kể từ B12 đi xuống
Còn
Range("B65000").End(xlUp).Row
là dòng cuối kể từ B65000 đi lên với điều kiện số record < 65000
 
Upvote 0
Bạn dùng Range("B12").End(xlDown) trong trường hợp dử liệu có dòng rổng ở giữa danh sách hoặc dưới cell gốc B12 không có dử liệu thì kết quả sẽ sai ngay
Recode macro này sẽ biết:
1> Chọn B12, bấm Ctrl + mũi tên xuống
2> Chọn B65536, bấm Ctrl + mũi tên lên
Tương tự như thế cho các trường hợp tìm cell bên trái và phải cuối cùng có dử liệu
 
Upvote 0
Giả dụ cột 'B' bạn có dữ liệu từ 'B1:B18' & tiếp theo là từ 'B30:B41'
thì dòng lệnh đó sẽ dẫn bạn đến 'B18'
Nếu bạn đang chọn 'B41' & dùng dòng lệnh ấy 1 lần nữa, bạn sẽ đến dòng cuối của trang tính;

Nếu bạn muốn đến dòng cuối của 1 cột nào đó thì nên áp dụng chuyển động ngược lại: Đi từ dòng cuối trở lên
đó là dòng lệnh [b65400].End(XlUp);
Để tới dòng cuối chưa dữ liệu cột 'B' thì bạn hãy thêm 1 dòng vô đó, bằng các cách sau:

[B65500].End(XlUp).Offset(1).Select
Range("B" & [B65500].End(XlUp).Row+1).Select
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom