[Giúp Đỡ] Lấy dữ liệu từ các cột bên 1 excel sang 1 file excel mới (1 người xem)

[protq2]

Chào các anh/chị/em,

Hiện tại em ko có nhiều kiến thức về excel nhưng lại có chút việc mong mng giúp.
mình có 2 file là file Template và file danh sách.
Mình muốn nhập dữ liệu từ các cột file danh sách vào template.
nhưng mình còn nhiều file nữa, nên mạo muội hỏi có cách nào có thể nhập được nhiều file danh sách (vd: danh sách 1, danh sách 2...) vào template được nữa ko? em cảm ơn

 

[phulien1902]

Chào các anh/chị/em,

Hiện tại em ko có nhiều kiến thức về excel nhưng lại có chút việc mong mng giúp.
mình có 2 file là file Template và file danh sách.
Mình muốn nhập dữ liệu từ các cột file danh sách vào template.
nhưng mình còn nhiều file nữa, nên mạo muội hỏi có cách nào có thể nhập được nhiều file danh sách (vd: danh sách 1, danh sách 2...) vào template được nữa ko? em cảm ơn

Bạn chép Code dưới đây vào Module của File Template và thử nghiệm:

Sub Capnhat()
    Dim wb As String
    wb = Application.GetOpenFilename("Excel Files (*.xls*), *.xls")
    Application.ScreenUpdating = False
    With Workbooks.Open(wb)
        Sheets(1).Range("A2:E50").Copy
        ' Sheets(1).Range("A2:E" & .Range("A" & Rows.Count).End(3).Row).Copy
        ThisWorkbook.Sheets(1).Range("A65536").End(3).Offset(1, 0).PasteSpecial xlPasteValues
        .Close False
        Cells(1, 1).Select
    End With
    Application.ScreenUpdating = True
    MsgBox "Da Ghi Xong!", , "Thong bao"
End Sub

 

[protq2]

Bạn chép Code dưới đây vào Module của File Template và thử nghiệm:

Sub Capnhat()
    Dim wb As String
    wb = Application.GetOpenFilename("Excel Files (*.xls*), *.xls")
    Application.ScreenUpdating = False
    With Workbooks.Open(wb)
        Sheets(1).Range("A2:E50").Copy
        ' Sheets(1).Range("A2:E" & .Range("A" & Rows.Count).End(3).Row).Copy
        ThisWorkbook.Sheets(1).Range("A65536").End(3).Offset(1, 0).PasteSpecial xlPasteValues
        .Close False
        Cells(1, 1).Select
    End With
    Application.ScreenUpdating = True
    MsgBox "Da Ghi Xong!", , "Thong bao"
End Sub

Cảm ơn bạn, code hoạt động tốt quá. Nhưng mình có 1 điều nho nhỏ muốn hỏi, vì template có nhiều version có thể thay đổi sắp xếp hàng cột. vậy làm sao để mình có thể thay đổi cột dữ liệu bên danhsach sang bên template tùy ý theo ý mình ?

Ví Dụ: Cột Học Sinh, Học Lực sẽ tự nhập dữ liệu vào bên học sinh học lực tương ứng (nhưng khác số thứ tự cột ). Cảm ơn bạn rất nhiều!

 

[protq2]

Mọi người cho em hỏi em viết đoạn code sau có lỗi gì ko ah? em cảm ơn - nội dung cũng copy bạn bên trên thôi ah, nhưng thêm các dòng khác bổ sung.
Sub Capnhat()
Dim wb As String
wb = Application.GetOpenFilename("Excel Files (*.xls*), *.xls")
Application.ScreenUpdating = False
With Workbooks.Open(wb)
Sheets(1).Range("B2:B5000").Copy
ThisWorkbook.Sheets(1).Range("B65536").End(3).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(1).Range("C2:C5000").Copy
ThisWorkbook.Sheets(1).Range("D65536").End(3).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(1).Range("A2:A5000").Copy
ThisWorkbook.Sheets(1).Range("V65536").End(3).Offset(1, 0).PasteSpecial xlPasteValues
.Close False
Cells(1, 1).Select
End With
Application.ScreenUpdating = True
MsgBox "Da Ghi Xong!", , "Thong bao"
End Sub