Phép gán này sai ở đâu ạ?

[nguyenphuongthao]

Xin hỏi phép gán này sai ở đâu ạ?

Sheets("Sheet2").Range(Cells(2, 1), Cells(2, 7)).Value = Sheets("Sheet1").Range(Cells(1, 1), Cells(1, 7)).Value

 

[hoangdanh282vn]

Bạn xem code sau, so sánh bạn sẽ thấy chổ sai :

Sub vd1()
Sheets("Sheet2").Range(Sheets("Sheet2").Cells(2, 1), _
        Sheets("Sheet2").Cells(2, 7)).Value = Sheets("Sheet1").Range(Sheets("Sheet1").Cells(1, 1), _
                                                        Sheets("Sheet1").Cells(1, 7)).Value
End Sub

Code tương đương nhưng gọn hơn :

Sub vd2()
Sheets("Sheet2").Cells(2, 1).Resize(1, 7).Value = Sheets("Sheet1").Cells(1, 1).Resize(1, 7).Value
End Sub

Muốn tham chiếu đến cấp nhỏ hơn ("Cell") thì phải cho biết cấp lớn hơn của nó là gì ("Sheet")