Giúp đỡ ghép các cột từ các sheet từ 1 workbook sang 1 workbook khác (1 người xem)

[protq2]

Dear ACE,

Mong anh chị em giúp đỡ,

Tôi có vấn đề sau, 1 file excel có nhiều sheets.

hiện tôi muốn nhập dữ liệu từ các sheet đó ghép lại vào 1 sheet của 1 workbook mới.

hiện tại tôi đã làm đến đây nhưng ko biết làm thế nào để thứ tự copy ko chồng vào nhau mà nối lại... cảm ơn quý bạn !

Sub ImportingData()


Dim wb As String
wb = Application.GetOpenFilename("Excel Files (*.xls*), *.xls")
If wb = "False" Then Exit Sub
Application.ScreenUpdating = False
With Workbooks.Open(wb)
Sheets(1).Range("A2:A100000").Copy
ThisWorkbook.Sheets(1).Range("K2:K100000").End(3).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(2).Range("A2:A100000").Copy
ThisWorkbook.Sheets(1).Range("K2:K100000").End(3).Offset(1, 0).PasteSpecial xlPasteValues
-> làm sao để copy sheet 2 cùng column nhưng ko chồng lên các dòng của sheet 1 đã paste?

Cảm ơn!

 

[vanthinh3101]

Dear ACE,

Mong anh chị em giúp đỡ,

Tôi có vấn đề sau, 1 file excel có nhiều sheets.

hiện tôi muốn nhập dữ liệu từ các sheet đó ghép lại vào 1 sheet của 1 workbook mới.

hiện tại tôi đã làm đến đây nhưng ko biết làm thế nào để thứ tự copy ko chồng vào nhau mà nối lại... cảm ơn quý bạn !

Sub ImportingData()


Dim wb As String
wb = Application.GetOpenFilename("Excel Files (*.xls*), *.xls")
If wb = "False" Then Exit Sub
Application.ScreenUpdating = False
With Workbooks.Open(wb)
Sheets(1).Range("A2:A100000").Copy
ThisWorkbook.Sheets(1).Range("K2:K100000").End(3).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(2).Range("A2:A100000").Copy
ThisWorkbook.Sheets(1).Range("K2:K100000").End(3).Offset(1, 0).PasteSpecial xlPasteValues
-> làm sao để copy sheet 2 cùng column nhưng ko chồng lên các dòng của sheet 1 đã paste?

Cảm ơn!

Bạn chạy code của file đính kèm nhé!

 

[protq2]

pls giải thích được ko bạn? mình muốn thêm dòng vào trong 1 sheet bất kỳ vì có sheet bị lệch thì làm sao?
cảm ơn bạn

 

[vanthinh3101]

pls giải thích được ko bạn? mình muốn thêm dòng vào trong 1 sheet bất kỳ vì có sheet bị lệch thì làm sao?
cảm ơn bạn

Mình chưa hiểu ý của bạn lắm.
Mình đã làm file Consolidate Data theo mẫu các Sheets của bạn.
Trước khi bạn tổng hợp, bạn nên check lại dữ liệu cho chuẩn, nếu sửa chữa thì phải tổng hợp lại.

 

[protq2]

Cảm ơn bạn rất nhiều, ý mình là mình muốn học hỏi về ý nghĩa chu trình các đoạn code. đoạn code bạn viết khác so với mình nên mình muốn hỏi bạn về nó.

Chân thành cảm ơn ban