Copy vào dòng trống kế dòng có dữ liệu

[trantuonganh2008]

Mình có dữ liệu sẵn ở book2 có tên là sheet1, bây giờ mình muốn viết lệnh sao chép dữ liệu ở workbook có tên là book 1 nằm ở sheet 1 vào dòng trống đầu tiên ở sheet 1 của book 2, cụ thể là chép dữ liệu ở book 1 vào dòng A7 của book 2. Chú ý là vùng dữ liệu ở book 1 là thay đổi có thể nằm bất cứ chỗ nào nhưng khi chép sang book 2 thì dữ liệu phải nằm tại cột A và chép vào ngay bên dưới hàng có chứa dữ liệu cuối cùng này. Cám ơn các bạn nhiều!

 

[sealand]

Bạn chép hai file này vào cùng 1 thư mục rồi mở book2-1 thử xem có đúng không? (Bạn phải chép về chứ mở ngay trên mạng thì nó chỉ down về book2-1 và báo lỗi không tìm thấy book1)

 

[trantuonganh2008]

Cho mình hỏi thêm, giả sử mình có vùng dữ liệu là B5:J500, mình muốn khi chạy code thì tự động nó copy qua luôn, không cần hiện hộp thông báo là chọn vùng nào thì sửa đoạn code trên lại thế nào?

 

[sealand]

Bạn điền luôn
Set rng = Sheet1.range("B5:J500")