Xin mọi người giúp đỡ copy sheet1 sang sheet2 (1 người xem)

[trungdung0702]

Em muốn 1 code copy lần lượt
sheet1.cells(i,1) sang sheet2.cells(k,1)
sheet1.cells(i+1,1) sang sheet2.cells(k+1,1)

sheet1.cells(i+n,1) sang sheet2.cells(k+n,1)
mong mọi người giúp đỡ
Em cảm ơn ạ.

 

[befaint]

Sheet2.Range(Cells(k,1),Cells(k+n,1)).Value=Sheet1.Range(Cells(i,1),Cells(i+n,1)).Value

 

[trungdung0702]

Sheet2.Range(Cells(k,1),Cells(k+n,1)).Value=Sheet1.Range(Cells(i,1),Cells(i+n,1)).Value

em thử chạy và bị lỗi không chạy được anh ơi

 

[trungdung0702]

em thử chạy và bị lỗi không chạy được anh ơi

 

[HieuCD]

Sheet2.Range(Cells(k,1),Cells(k+n,1)).Value=Sheet1.Range(Cells(i,1),Cells(i+n,1)).Value

Hình như thiếu gì đó

 

[befaint]

em thử chạy và bị lỗi không chạy được anh ơi

Sheet2.Range(Sheet2.Cells(k,1),Sheet2.Cells(k+n,1)).Value=Sheet1.Range(Sheet1.Cells(i,1),Sheet1.Cells(i+n,1)).Value
'Hoặc:'
Sheet2.Cells(k,1).Resize(n+1,1).Value=Sheet1.Cells(i,1).Resize(n+1,1).Value