Code để chép dữ liệu từ sheet này sang sheet khác

[nguyenhoangtuananh9897]

Chào mọi người,

Mình có đoạn code để copy dữ liệu cột I sheet3 sang cột A và B sheet1. Mình mới tập viết code nên không biết sai ở đâu. Mong mọi người hỗ trợ.

Cám ơn mọi người.

 

[BuiQuangThuan]

Chào mọi người,

Mình có đoạn code để copy dữ liệu cột I sheet3 sang cột A và B sheet1. Mình mới tập viết code nên không biết sai ở đâu. Mong mọi người hỗ trợ.

Cám ơn mọi người.

Sửa thế này coi nào

Sub B()
    Dim lr As Long
    lr = Sheets("Sheet3").Range("I" & Rows.Count).End(xlUp).Row
    With Sheets("Sheet1")
         .Range("A:B").ClearContents
         .Range("A2:B" & lr).Value = Sheets("Sheet3").Range("I2:I" & lr).Value
    End with
End Sub

 

[nguyenhoangtuananh9897]

Cám ơn @BuiQuangThuan rất nhiều. Code chạy tốt

 

[Maika8008]

Cám ơn @BuiQuangThuan rất nhiều. Code chạy tốt

Bạn @BuiQuangThuan mà đã giúp thì OK rồi.

 

[Hoàng Tuấn 868]

Bạn @BuiQuangThuan mà đã giúp thì OK rồi.

Thường thì chia làm hai món, nếu ổn cả thì code chạy tốt, còn không thì code chạy dốt anh nhỉ.

 

[Maika8008]

Thường thì chia làm hai món, nếu ổn cả thì code chạy tốt, còn không thì code chạy dốt anh nhỉ.

Không đâu. Mình cứ viết và sẽ lên tay. Chỉ 2 năm giao lưu trên GPE, khả năng viết code của tôi (tôi thấy rõ) là hơn 20 năm trước đó. Nhưng... vẫn sai và sai. Và sai thì sửa thôi.

 

[Hoàng Tuấn 868]

Không đâu. Mình cứ viết và sẽ lên tay. Chỉ 2 năm giao lưu trên GPE, khả năng viết code của tôi (tôi thấy rõ) là hơn 20 năm trước đó. Nhưng... vẫn sai và sai. Và sai thì sửa thôi.

Em sai nhiều đến mức giờ không muốn viết nữa vì ngại sửa.

 

[BuiQuangThuan]

Bạn @BuiQuangThuan mà đã giúp thì OK rồi.

Anh lại chê cười rồi

Không đâu. Mình cứ viết và sẽ lên tay. Chỉ 2 năm giao lưu trên GPE, khả năng viết code của tôi (tôi thấy rõ) là hơn 20 năm trước đó. Nhưng... vẫn sai và sai. Và sai thì sửa thôi.

Cái này có lẽ đúng ạ. Cứ lâu lâu không sờ tới cót két là y rằng tự nhiên bị lag. Mãi không nghĩ ra cách giải quyết ấy. Chỉ cần ai chấm nhẹ 1 cái có khi lại ra ngay

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

Thường thì chia làm hai món, nếu ổn cả thì code chạy tốt, còn không thì code chạy dốt anh nhỉ.

Vẫn phải học các anh chị thầy cô nhiều ạ

 

[nguyenhoangtuananh9897]

For i = lr_sh_bckho To 2 Step -1
    If Cells(i, 2).Text = "#N/A" Then
        Cells(i, 2).Delete Shift:=xlUp
        Cells(i, 3).Delete Shift:=xlUp
        Cells(i, 4).Delete Shift:=xlUp
        Cells(i, 5).Delete Shift:=xlUp
        Cells(i, 6).Delete Shift:=xlUp
    End If
Next i

Mình đang tập viết code nên không biết cách rút gọn đoạn này. Mong mọi người giúp đỡ

 

[Hoàng Tuấn 868]

For i = lr_sh_bckho To 2 Step -1
If Cells(i, 2).Text = "#N/A" Then
for j = 2 to 6
Cells(i, j).Delete Shift:=xlUp
next j
End If
Next i

Bạn thử thế này xem sao.

 

[Phuocam]

Mình đang tập viết code nên không biết cách rút gọn đoạn này. Mong mọi người giúp đỡ

For i = lr_sh_bckho To 2 Step -1
    If Cells(i, 2).Text = "#N/A" Then
        Cells(i, 2).Resize(1, 5).Delete Shift:=xlUp
    End If
Next i

.

 

[nguyenhoangtuananh9897]

Cám ơn 2 bạn @Phuocam và @Hoàng Tuấn 868 .
Mình thắc mắc nếu dùng Range trong trường hợp này thì sẽ như thế nào nhỉ. Ban đầu mình dùng Range nhưng báo lỗi nên mình chuyển qua dùng Cells.

 

[Maika8008]

Cám ơn 2 bạn @Phuocam và @Hoàng Tuấn 868 .
Mình thắc mắc nếu dùng Range trong trường hợp này thì sẽ như thế nào nhỉ. Ban đầu mình dùng Range nhưng báo lỗi nên mình chuyển qua dùng Cells.

Cells(i, 2) = Range("B" & i) chứ có gì đâu nhỉ.
Viết Range thì được hỗ trợ cú pháp sau đó chứ viết Cells thì tự thân vận động.

 

[nguyenhoangtuananh9897]

Cells(i, 2) = Range("B" & i) chứ có gì đâu nhỉ.
Viết Range thì được hỗ trợ cú pháp sau đó chứ viết Cells thì tự thân vận động.

Cells(i, 2).Resize(1, 5) = Range("B" & i & ":F" & i ) ?
Để xoá cả dòng i mình có thể dùng Row(i & ":" & i).Delete Shift:=xlUp không?
Mình đang gặp khó ở vấn đề kết hợp biến i vào Cells, Range và Row vì không biết cách thức viết đúng là như thế nào

 

[Hoàng Tuấn 868]

Cells(i, 2).Resize(1, 5) = Range("B" & i & ":F" & i ) ?
Để xoá cả dòng i mình có thể dùng Row(i & ":" & i).Delete Shift:=xlUp không?
Mình đang gặp khó ở vấn đề kết hợp biến i vào Cells, Range và Row vì không biết cách thức viết đúng là như thế nào

Nên tự thử đi thử lại các trường hợp trước khi hỏi.

 

[BuiQuangThuan]

Cells(i, 2).Resize(1, 5) = Range("B" & i & ":F" & i ) ?

Hiểu thế cũng được.

Để xoá cả dòng i mình có thể dùng Row(i & ":" & i).Delete Shift:=xlUp không?

Nếu ý định của bạn xoá những dòng ở cột B bị lỗi #NA trong khi dữ liệu nhiều thì code khi chạy có thể quay đắm đuối đó

 

[Hoàng Tuấn 868]

quay đắm đuối đó

Quay đến khi chết đuối đó.

 

[nguyenhoangtuananh9897]

@BuiQuangThuan Cám ơn bạn đã hỗ trợ.