Sub Gopdulieu_04()
'Noi cho du lieu
'Workbooks("Book10").Sheet1.Range("A2:C4").Value
'Noi nhan du lieu
'Workbooks("Book13").Sheet2.Range("A2:C").Value
Workbooks("Book13").Sheets("Data").Range("A2:C4").Value = _
Workbooks("Book10").Sheets("Sheet1").Range("A2:C4").Value
'gop du lieu book 11
Dim dongdau_Wb11 As Long
dongdau_Wb11 = 2
Dim dongcuoi_Wb11 As Long
dongcuoi_Wb11 = Workbooks("book11").Sheet1("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Dim khoangcach_Wb11 As Long
khoangcach_Wb11 = dongcuoi_Wb11 - dongdau_Wb11 + 1
' book 13
Dim dongcuoi_Wb13 As Long
dongcuoi_Wb13 = Workbooks("Book13").Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
Workbooks("Book13").Sheets("Data").Range("A"&dongcuoi_Wb13+1& ":C" & dongcuoi_Wb13+khoangcach_Wb11).Value = _
Workbooks("Book11").Sheets("Sheet1").Range("A"&dongdau_Wb11& ":C" & dongcuoi_Wb11).Value
Thầy cho e hỏi: Sao e bị lỗi ở đây ạ
Workbooks("Book13").Sheets("Data").Range("A"&dongcuoi_Wb13+1& ":C" & dongcuoi_Wb13+khoangcach_Wb11).Value = _
Workbooks("Book11").Sheets("Sheet1").Range("A"&dongdau_Wb11& ":C" & dongcuoi_Wb11).Value