https//drivegooglecom/file/d/17Ubchttps//drivegooglecom/file/d/15V0Uhttps//drivegooglecom/file/d/19hN4

Trong code của bạn có dòng này:

wb_ketqua.Sheets("Sheet1").Range("a" & dongcuoi_ketqua + 1 & ":e" & khoangcach_select).Value _

= wb_select.Sheets("Sheet2").Range("a" & dongdau_select & ":e" & dongcuoi_select).Value

ý nghĩa của nó là lấy dữ liệu trong workbook được chọn từ thư mục, tại Sheet có tên là "Sheet2".

Không phải lấy tất cả các sheet mà chỉ lấy ở Sheet có tên là Sheet2 thôi.

Một số lỗi có thể xảy ra:

1. Workbook được mở từ thư mục không có chứa Sheet nào có tên là Sheet2

2. Để lấy toàn bộ các Sheet thì bạn cần làm thêm lệnh vòng lặp, xét từng Sheet trong Workbook được mở

Dim j as long

For j = 1 to wb_Select.Worksheets.count

...

Next j

Khi đó bạn sẽ lấy dữ liệu theo lệnh:

wb_ketqua.Sheets("Sheet1").Range("a" & dongcuoi_ketqua + 1 & ":e" & khoangcach_select).Value _

= wb_select.Sheets(j).Range("a" & dongdau_select & ":e" & dongcuoi_select).Value

trong đó các biến dongdau_select, dongcuoi_select, khoangcach_select sẽ tính theo Sheets(j)

https://drive.google.com/file/d/1L8zW...

ad cho e hỏi chút ạ, e đã làm như ad hướng dẫn nhưng kết quả vẫn k ra. nhờ ad sửa giúp e với, e cám ơn