Lấy dữ liệu từ nhiều file khác sau đó dán định dạng

[kokoro mitsubishi]

Gửi các Anh / Chị /Em trong diễn đàn
Em có 1 vấn đề đang bị mắc đó là em sẽ tổng hợp dữ liệu từ các sheet khác nhau để đưa về file tổng
trong module em đã tạo được code coppy tuy nhiên khi dán lại thì vẫn giữ nguyên công thức nên khi có quá nhiều sheet về thì dung lượng file sẽ tăng lên đáng kể
Nhờ anh chị giúp đỡ code khi coppy cong dán sang vùng cần xác định thì chỉ dán định dạng thôi (

em xin cảm ơn

 

[HUONGHCKT]

Gửi các Anh / Chị /Em trong diễn đàn
Em có 1 vấn đề đang bị mắc đó là em sẽ tổng hợp dữ liệu từ các sheet khác nhau để đưa về file tổng
trong module em đã tạo được code coppy tuy nhiên khi dán lại thì vẫn giữ nguyên công thức nên khi có quá nhiều sheet về thì dung lượng file sẽ tăng lên đáng kể
Nhờ anh chị giúp đỡ code khi coppy cong dán sang vùng cần xác định thì chỉ dán định dạng thôi (

em xin cảm ơn

Tham khảo:
Thay

wb.Sheets("Tonghop").Range("A1:AJ10000").Copy Wbmain.Sheets("Tien").Range("A1")

Thành

Arr = wb.Sheets("Tonghop").Range("A1:AJ10000").Value
Sheets("Tien").Range("A1").Resize(UBound(Arr), UBound(Arr, 2)) = Arr

 

[kokoro mitsubishi]

Arr = wb.Sheets("Tonghop").Range("A1:AJ10000").Value Sheets("Tien").Range("A1").Resize(UBound(Arr), UBound(Arr, 2)) = Arr

Cảm ơn Bác , để em thử ạ

Bài đã được tự động gộp: 28/11/23

Tham khảo:
Thay

wb.Sheets("Tonghop").Range("A1:AJ10000").Copy Wbmain.Sheets("Tien").Range("A1")

Thành

Arr = wb.Sheets("Tonghop").Range("A1:AJ10000").Value
Sheets("Tien").Range("A1").Resize(UBound(Arr), UBound(Arr, 2)) = Arr

Khi em thực thi thì báo lỗi bác ạ, nhờ bác kiểm tra giúp

 

[HUONGHCKT]

Khi em thực thi thì báo lỗi bác ạ, nhờ bác kiểm tra giúp

Bạn kiểm tra lại xem vùng để gán kết quả có MergeCell không?
(Rõ ràng là B2/Sheet(tien) đã là ô nối thông)
Xem file copy sheet khác trong cùng 1 workbook. vùng gán kết quả là từ ô A4/sheet(Tien)

 

[HieuCD]

Tham khảo:
Thay

wb.Sheets("Tonghop").Range("A1:AJ10000").Copy Wbmain.Sheets("Tien").Range("A1")

Thành

Arr = wb.Sheets("Tonghop").Range("A1:AJ10000").Value
Sheets("Tien").Range("A1").Resize(UBound(Arr), UBound(Arr, 2)) = Arr

Thử cho = trực tiếp không cần qua trung gian Arr

 

[kokoro mitsubishi]

Bạn kiểm tra lại xem vùng để gán kết quả có MergeCell không?
(Rõ ràng là B2/Sheet(tien) đã là ô nối thông)
Xem file copy sheet khác trong cùng 1 workbook. vùng gán kết quả là từ ô A4/sheet(Tien)

Cảm ơn bác
nhưng trong trường hợp này của em sẽ là link sang file khác không cùng folder thì như nào ạ , khi mở được file thì vẫn báo lỗi mặc dù em file đích em không có mergecell , em không hiểu lắm nên nhờ bác giúp đỡ
em cảm ơn

 

[HUONGHCKT]

Cảm ơn bác
nhưng trong trường hợp này của em sẽ là link sang file khác không cùng folder thì như nào ạ , khi mở được file thì vẫn báo lỗi mặc dù em file đích em không có mergecell , em không hiểu lắm nên nhờ bác giúp đỡ
em cảm ơn

Theo tôi bạn nên:
1/Các bài dạng này rất nhiều trên điễn đàn này, bạn chịu khó tìm kiếm sẽ thấy và áp dụng cho bài của mình. Tự mình tìm hiểu và xử lý được chẳng thấy thú vị lắm sao.
Trường hợp vẫn không thành công thì tiến hành bước 2:
2/ Bạn gửi lại cả file nguồn và file đích lên thì mới biết thế nào để giúp được.