[Hỏi về] Cách copy dữ liệu giữa các sheet bằng VBA (1 người xem)

[NguyenVietThinh08]

Sub capnhat()

Dim ccuoi As Integer
Dim i As Integer
Dim u As Integer
u = i - 1

ccuoi = Sheet1.Cells(1, 100).End(xlToLeft).Column
For i = 2 To ccuoi
Sheet2.Range("G" & i) = Sheet1.Cells(1, u).Value


Next i

End Sub

Xin chào cả nhà, tình hình là như này em viết 1 cái sub muốn copy 1 hàng của sheet1 sang 1 cột của sheet2, nhưng hiện tại lại lỗi ở dòng này
Sheet2.Range("G" & i) = Sheet1.Cells(1, u).Value
Các bác giải thích và gỡ lỗi giúp em được không ạ
em xin chân thành cảm ơn

 

[Quang_Hải]

Sub capnhat()

Dim ccuoi As Integer
Dim i As Integer
Dim u As Integer
u = i - 1

ccuoi = Sheet1.Cells(1, 100).End(xlToLeft).Column
For i = 2 To ccuoi
Sheet2.Range("G" & i) = Sheet1.Cells(1, u).Value


Next i

End Sub

Xin chào cả nhà, tình hình là như này em viết 1 cái sub muốn copy 1 hàng của sheet1 sang 1 cột của sheet2, nhưng hiện tại lại lỗi ở dòng này
Sheet2.Range("G" & i) = Sheet1.Cells(1, u).Value
Các bác giải thích và gỡ lỗi giúp em được không ạ
em xin chân thành cảm ơn

Xét cấu trúc ngữ pháp thì không có gì sai. Bạn thử gởi file lên xem coi thế nào

 

[befaint]

giải thích và gỡ lỗi

Sub capnhat()

Dim ccuoi As Integer
Dim i As Integer
Dim u As Integer
u = i - 1
msgbox u
'Khi một biến i được khai báo là kiểu Integer thì giá trị mặc định i = 0. '
'Lưu ý: Giới hạn của Integer  như hình, Excel 2007 trở lên có 1048576 dòng rồi, nên dùng kiểu Long nhóe nhóe!!!'
'u = i - 1 = 0 - 1 = -1 nên gặp chỗ này  Sheet1.Cells(1, u).Value  là ngỏm bất đắc kỳ tử. Lý do: hai tham số của thuộc tính Cells() phải >= 1.'

End Sub

 

[NguyenVietThinh08]

Đây ạ, bác xem cho em được không ạ,

 

[Quang_Hải]

Đây ạ, bác xem cho em được không ạ,

Sửa lại vầy coi được chưa

Sub capnhat()
 
    Dim ccuoi As Integer
    Dim i As Integer
    ccuoi = Sheet1.Cells(1, 100).End(xlToLeft).Column
    For i = 2 To ccuoi
        Sheet2.Range("A" & i).Value = Sheet1.Cells(1, i - 1).Value
    Next i
    
End Sub

 

[NguyenVietThinh08]

Sửa lại vầy coi được chưa

Sub capnhat()

    Dim ccuoi As Integer
    Dim i As Integer
    ccuoi = Sheet1.Cells(1, 100).End(xlToLeft).Column
    For i = 2 To ccuoi
        Sheet2.Range("A" & i).Value = Sheet1.Cells(1, i - 1).Value
    Next i
  
End Sub

Hay quá ạ, em làm được rồi

Bài đã được tự động gộp: 5/9/20

Sửa lại vầy coi được chưa

Sub capnhat()

    Dim ccuoi As Integer
    Dim i As Integer
    ccuoi = Sheet1.Cells(1, 100).End(xlToLeft).Column
    For i = 2 To ccuoi
        Sheet2.Range("A" & i).Value = Sheet1.Cells(1, i - 1).Value
    Next i
  
End Sub

Cháu cảm ơn chú ạ, mà cháu muốn hỏi vì sao lại thế ạ, để sau cháu gặp trường hợp này còn tránh ạ

 

[Cá ngừ F1]

Hay quá ạ, em làm được rồi

Bài đã được tự động gộp: 5/9/20

Cháu cảm ơn chú ạ, mà cháu muốn hỏi vì sao lại thế ạ, để sau cháu gặp trường hợp này còn tránh ạ

Anh í còn trẻ và đẹp trai lắm, anh thôi !!!