Mình viết sub như sau tại sao khi chạy sub để lấy dữ liệu thì dữ liệu

Hi Gitiho,

Mình viết sub như sau, cho mình hỏi tại sao khi chạy sub để lấy dữ liệu thì dữ liệu không thể chạy theo thứ tự lấy hết dữ liệu các file mà lại bị lấy đè lên dữ liệu trước đó.

Ngoài ra phần dưới lại bị #NA.

Sub Get_Data()

'Xac dinh dong cuoi WB cho

Dim DongCuoi_wb1 As Long

    DongCuoi_wb1 = Workbooks("book1").Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row

Dim DongCuoi_WB2 As Long

    DongCuoi_WB2 = Workbooks("book2").Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row

Dim DongCuoi_WB3 As Long

    DongCuoi_WB3 = Workbooks("book3").Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row

'Xac dinh dong dau WB cho

Dim DongDau_wb1 As Long

    DongDau_wb1 = 2

 Dim DongDau_wb2 As Long

    DongDau_wb2 = 2

 Dim DongDau_wb3 As Long

    DongDau_wb3 = 2

'Xac dinh khoang cach

Dim KC_wb1 As Long

    KC_wb1 = DongCuoi_wb1 - DongDau_wb1 + 1

Dim KC_wb2 As Long

    KC_wb2 = DongCuoi_WB2 - DongDau_wb2 + 1

Dim KC_wb3 As Long

    KC_wb3 = DongCuoi_WB3 - DongDau_wb3 + 1

'Xac dinh Dong cuoi WB nhan

Dim DongCuoi_wb4 As Long

    DongCuoi_wb4 = ThisWorkbook.Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1

'Chuyen du lieu

' Noi cho = Noi nhan

'wb1:

ThisWorkbook.Sheets("Data").Range("A" & DongCuoi_wb4 & ":C" & DongCuoi_wb4 & KC_wb1).Value = _

    Workbooks("book1").Sheets("sheet1").Range("A" & DongDau_wb1 & ":C" & DongCuoi_wb1).Value

'wb2:

ThisWorkbook.Sheets("Data").Range("A" & DongCuoi_wb4 & ":C" & DongCuoi_wb4 & KC_wb2).Value = _

    Workbooks("book2").Sheets("sheet1").Range("A" & DongDau_wb1 & ":C" & DongCuoi_WB2).Value

 'wb3:

ThisWorkbook.Sheets("Data").Range("A" & DongCuoi_wb4 & ":C" & DongCuoi_wb4 & KC_wb3).Value = _

    Workbooks("book3").Sheets("sheet1").Range("A" & DongDau_wb3 & ":C" & DongCuoi_WB3).Value

End Sub

Kết quả trả: