Thầy ơi, em muốn copy dữ liệu từ sheet Mastersheet qua sheet Data. Với a và b là 2 ô được nhập sau (Ví dụ muốn copy từ dùng 7 và 10). Em đã chạy thử code và dữ liệu chỉ được copy 1 hàng (hàng 7) mà không phải là từ hàng 7 - 10. Thầy có check code giúp em sai chỗ nào với ạ.
Ngoài ra mình có code tìm duplicate không ạ ví dụ hàng trước đó đã nhập rồi thì sẽ không thêm vào nữa.
Sub copydulieusheet1qua2()
Dim i, a, b As Integer
'khai báo bien voi a va b la row chi dinh
a = ThisWorkbook.Sheets("MasterSheet").Range("J2").Value
b = ThisWorkbook.Sheets("MasterSheet").Range("K2").Value
'B1: xac dinh dong cuoi bang template
Dim dongcuoi_template As Integer
dongcuoi_template = ThisWorkbook.Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row
For i = a To b
ThisWorkbook.Sheets("Data").Range("A" & dongcuoi_template + 1 & ":AA" & dongcuoi_template + 1).Value = ThisWorkbook.Sheets("Mastersheet").Range("BC" & a & ":CB" & b).Value
Next i
End Sub
Khi em sửa code này thành ThisWorkbook.Sheets("Mastersheet").Range("BC" & i & ":CB" & i ).Value. thì dữ liệu cũng chỉ copy 1 dòng cuối đó là dòng 10 thôi ạ
Chào bạn bạn xem chương 10 nhé, hoặc xem code mẫu