cho ·mình hỏi là câu lệnh này báo lỗi subcript out of range bị lỗi ở đâu ạ
Workbooks("Book4").Sheets("Data").Range("A2:C4").Value = Workbooks("baitap1").Sheets("Sheet1").Range("A2:C4").Value
Có thể do cách gọi workbooks của bạn chưa đúng. Cần chú ý xem workbooks có tên đầy đủ là gì, gồm cả tên và loại file (đuôi file là .xlsx hay .xlsm gì đó) => xem tại cửa sổ Project nhé.
Bạn nên gán biến cho các workbooks để làm việc cho dễ, không nên gọi tên trực tiếp.