Thầy cho em hỏi sao em viết giống như bài tập trên, bấm chạy không báo lỗi nhưng sheet3 không có dữ liệu gì cả là sao ạ?
Bạn kiểm tra lại trên cột D xem dòng cuối thực sự là dòng nào nhé, có thể ở phía dưới sẽ có dữ liệu.
Cách kiểm tra: Bấm vào 1 ô trống (dưới vị trí mà bạn nghĩ là dòng cuối), sau đó nhấn tổ hợp phím Ctrl + Shift + Mũi tên hướng xuống dưới (down arrow) => sẽ dừng ở dòng cuối thực sự.
Nếu không có nội dung gì khác thì sẽ chạy tới tận dòng hơn 1 triệu.
Cám ơn thầy, nhân tiện em hỏi thêm 1 câu, code này chạy F8 thì không sao nhưng chạy tổng thể thì báo lỗi hàng bên dưới như thế này miết em không hiểu tại sao?
Sheet2.Range("B4:J" & DongCuoi).Select
Em copy nên bị nhầm chữ "Lr", em để "DongCuoi" vẫn báo lỗi như vậy.
Lỗi ở đây là:
Bạn khai báo biến Lr (Dim Lr as Long) nhưng không có khai báo biến DongCuoi
=> khi dùng biến này sẽ báo lỗi.
Do vấn đề khai báo và sử dụng biến thôi, bạn viết cẩn thận lại là được.