Paste data đến dòng trống kế tiếp

[vbanew]

Chào các thầy\anh\chị

Em có 1 bài toán em gửi file đính kèm ạ.

Em muốn xin đoạn code để có thể paste dữ liệu vào dòng trống bôi vàng ở cột B. Với điều kiện dựa vào dòng trống đầu tiên của cột A vì cột A có dữ liệu không cố định.

Chúc mọi người một ngày tốt lành.

 

[phulien1902]

Chào các thầy\anh\chị

Em có 1 bài toán em gửi file đính kèm ạ.

Em muốn xin đoạn code để có thể paste dữ liệu vào dòng trống bôi vàng ở cột B. Với điều kiện dựa vào dòng trống đầu tiên của cột A vì cột A có dữ liệu không cố định.

Chúc mọi người một ngày tốt lành.

Bạn nói chưa rõ ràng.
Bạn muốn dán cái gì vào Cell màu vàng đó.

 

[vbanew]

Bạn nói chưa rõ ràng.
Bạn muốn dán cái gì vào Cell màu vàng đó.

Chào anh!

Ví dụ là paste từ ''"OK" vào đó đi ạ

 

[phulien1902]

Để xác định Cell màu vàng bạn dùng:

 LR = Sheets("product").Range("A65000").End(3).Row + 1
    Sheets("product").Range("B" & LR & ":B" & LR).Select

Hoặc:

 LR = Sheets("product").Range("A65000").End(3).Row + 1
      Sheets("product").Range("A65000").End(3).Offset(1, 1).Select

Khi xác định Cell vàng rồi thì Copy & Paste thế nào là tùy ban.

 

[vbanew]

Để xác định Cell màu vàng bạn dùng:

 LR = Sheets("product").Range("A65000").End(3).Row + 1
    Sheets("product").Range("B" & LR & ":B" & LR).Select

Hoặc:

 LR = Sheets("product").Range("A65000").End(3).Row + 1
      Sheets("product").Range("A65000").End(3).Offset(1, 1).Select

Khi xác định Cell vàng rồi thì Copy & Paste thế nào là tùy ban.

Chào anh.

Em xin lỗi vì trình bày làm anh bị nhầm lẫn.

Ý của em ô mà e bôi vàng đó chỉ là ký hiệu để em muốn nói là em muốn paste vào dòng trống của cột B mà tại vị trí đó là vị trí rỗng đầu tiên của cột A .

Tức là nó kiểm tra nếu cột A mà blank ở dòng nào thì sẽ bắt đầu copy dữ liệu vào dòng đó ở cột B ạ.

 

[phulien1902]

Chào anh.

Em xin lỗi vì trình bày làm anh bị nhầm lẫn.

Ý của em ô mà e bôi vàng đó chỉ là ký hiệu để em muốn nói là em muốn paste vào dòng trống của cột B mà tại vị trí đó là vị trí rỗng đầu tiên của cột A .

Tức là nó kiểm tra nếu cột A mà blank ở dòng nào thì sẽ bắt đầu copy dữ liệu vào dòng đó ở cột B ạ.

Cái Cell màu vàng đó chính là cái bạn cần đó.

 

[vbanew]

Cái Cell màu vàng đó chính là cái bạn cần đó.

Chào anh!

Thanks anh nhiều nhé. Anh cho em hỏi thêm 1 chút.

Cái End(3) có ý nghĩa gì vậy anh?

 

[hang_tran_hh]

Chào các thầy\anh\chị

Em có 1 bài toán em gửi file đính kèm ạ.

Em muốn xin đoạn code để có thể paste dữ liệu vào dòng trống bôi vàng ở cột B. Với điều kiện dựa vào dòng trống đầu tiên của cột A vì cột A có dữ liệu không cố định.

Chúc mọi người một ngày tốt lành.

Ý của bạn có phải là như vậy không

 

[phulien1902]

Chào anh!

Cảm ơn anh nhiều nhé. Anh cho em hỏi thêm 1 chút.

Cái End(3) có ý nghĩa gì vậy anh?

Để xác định dòng dữ liệu cuối cùng trong cột A.
Ví dụ:

Sub abc()
    Dim LR1&, LR2&, LR3&
    LR1 = Sheets("product").Range("A65000").End(3).Row
    LR2 = Sheets("product").Range("A2").End(4).Row
    LR3 = Sheets("product").Cells(Sheets("product").Rows.Count, "A").End(xlUp).Row
 
    MsgBox "Cach1 - Dong cuoi cua cot A la: " & LR1
    MsgBox "Cach2 - Dong cuoi cua cot A la: " & LR2
    MsgBox "Cach3 - Dong cuoi cua cot A la: " & LR3
  '-----------
End Sub

Gửi bạn tài liệu về thuộc tính End( Nguồn: giaiphapexcel.com) để bạn tiện tham khảo

 

[vbanew]

Để xác định dòng dữ liệu cuối cùng trong cột A.
Ví dụ:

Sub abc()
    Dim LR1&, LR2&, LR3&
    LR1 = Sheets("product").Range("A65000").End(3).Row
    LR2 = Sheets("product").Range("A2").End(4).Row
    LR3 = Sheets("product").Cells(Sheets("product").Rows.Count, "A").End(xlUp).Row
 
    MsgBox "Cach1 - Dong cuoi cua cot A la: " & LR1
    MsgBox "Cach2 - Dong cuoi cua cot A la: " & LR2
    MsgBox "Cach3 - Dong cuoi cua cot A la: " & LR3
  '-----------
End Sub

Gửi bạn tài liệu về thuộc tính End( Nguồn: giaiphapexcel.com) để bạn tiện tham khảo

Cảm ơn anh ạ...hehe

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

Ý của bạn có phải là như vậy không

Cảm ơn anh. Cái này không đúng ý em nhưng em sẽ dùng tham khảo ạ.

 

[VetMini]

...Cái End(3) có ý nghĩa gì vậy anh?

có nghĩa là code giảm được 3 ký tự.
"3" ngắn hơn "xlUp", và trông có vẻ "nguy hiểm" hơn.