xem giúp e e chạy code mà kết quả ko lấy được dữ liệu của Book 1 là bị

Chào bạn bạn xem code mẫu nhé

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

Khi chạy code bạn có thấy báo lỗi gì không? Nếu không có lỗi thì code chạy đúng, chỉ là kết quả không như mong muốn => khi đó xem lại file nguồn (nơi cho dữ liệu) xem phạm vi vùng dữ liệu đã xác định đúng chưa nhé (sheet1, cột tìm dòng cuối là cột A đã đúng chưa? vùng dữ liệu là từ cột A tới cột C...)

Bạn cứ rà soát lại một lượt, làm chậm lại, tự tính toán (dựa trên việc đọc code) và so lại xem trên excel chạy thế nào => nội dung này khá phức tạp, dễ nhầm lẫn nên bạn cứ làm chậm và cẩn thận lại

dạ vẫn không được luôn thầy ơi, vùng dữ liệu là từ cột A đến cột C, e chạy lại thì Book 4 nhận được dữ liệu bỏ trống 2 dòng đầu, rồi các dữ liệu bị lặp lại như hình ấy thấy

Chào bạn bạn nén file và đẩy lên giúp gitiho nhé.

https://drive.google.com/file/d/148tG...

Chào bạn bạn cho gitiho xin quyền truy cập nhé.

file bạn gửi là file bài 6 - tổng hợp dữ liệu từ nhiều file bảng lương vào 1 file.

mà câu hỏi của bạn lại là bài khác. Bạn vui lòng kiểm tra lại giúp mình nhé.

Code mẫu của bài này là:

Sub Luu_DuLieu2()
Application.ScreenUpdating = False
'Thu muc chon file
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = True    'Cho phep chon nhieu file
    .Show                   'Hien cua so chon file
    .Title = "Chon file cua toi"
    
    Dim i As Long
    For i = 1 To .SelectedItems.Count   'vong lap xet tung file trong so nhung file duoc chon
        
        Dim wb_KQ As Workbook
        Dim wb_1 As Workbook
            Set wb_KQ = ThisWorkbook
            Set wb_1 = Workbooks.Open(.SelectedItems(i))
        
        'B1: xac dinh dong cuoi bang tong hop
        Dim DongCuoi_KQ As Long
        DongCuoi_KQ = wb_KQ.Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
        
        'B2: xac dinh dong cuoi bang chi tiet
        Dim DongCuoi_CT As Long
            DongCuoi_CT = wb_1.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
            
        Dim DongDau_CT As Long
            DongDau_CT = 2
            
        'B3: xac dinh khoang cach
        Dim KhoangCach As Long
        KhoangCach = DongCuoi_CT - DongDau_CT + 1
        
        'B4: luu
        wb_KQ.Sheets("Data").Range("A" & DongCuoi_KQ + 1 & ":C" & DongCuoi_KQ + KhoangCach).Value = _
            wb_1.Sheets("Sheet1").Range("A" & DongDau_CT & ":C" & DongCuoi_CT).Value
        
        'B5: Dong file noi dung
        wb_1.Close SaveChanges:=False
    Next i
End With
Application.ScreenUpdating = True
End Sub

e làm bài tập thực hành trong tai-lieu-vbag01 ấy thầy

file bài tập trích xuất từ file bài giảng là 1 bài tập khác với bài 6 - tổng hợp bảng lương bạn nhé.

Bạn chú ý tránh nhầm lẫn 2 dạng bài này.

Trong link drive bạn gửi thì là bài tập với dữ liệu bảng lương.