Thấy Đầy là dòng code của em Em sử dụng ngay ví dụ book 2 của thấy nên

Thấy ơi cho em hỏi

Đầy là dòng code của em, Em sử dụng ngay ví dụ book 2 của thấy nên dòng đầu là dòng 2 và code như sau. Nhưng e thấy trả kết quả k đúng nhu sau:

Thì em thử check lai cong thức khoang cách thì nó cho ra giá trị  -1 ạ. Thấy nhìn giúp em đoạn code bên dưới có gì sai a

sub GopWB()

Workbooks("Book4").Sheets("data").Range("A2:C4").Value = _

Workbooks("Book1").Sheets("sheet1").Range("A2:C4").Value

Dim dongcuoi_wb2 As Long

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

'xac dinh dongdau wb2

Dim dongdau_wb2 As Long

dongdau_wb2 = 2

'xac dinh khoang cach giua dongdau va dong cuoi cua wb2

Dim khoangcach_wb2 As Long

khoangcach_wb2 = dongcuoi_wb2 - dongdau_wb2 + 1

'xac dinh dong cuoi wb4

Dim dongcuoi_wb4 As Long

dongcuoi_wb4 = Workbooks("Book4").Sheets("Data").Range("A" & Rows.Count).End(xlUp).RowWorkbooks("Book4").Sheets("data").Range("A" & dongcuoi_wb4 & ":C" & dongcuoi_wb4 + khoangcach_wb2).Value = _

Workbooks("Book2").Sheets("sheet1").Range("A" & dongcuoi_wb2 & ":C" & dongcuoi_wb2).Value