Tạo code tự cập nhật chọn vùng dữ liệu (1 người xem)

[tamrua]

Dear các Anh Chị,
Tình hình là em tạo 1 đoạn code Autofill copy toàn bộ A1:A4 sang B:
Selection.AutoFill Destination:=Range("B1:B4")
A B
1 a
2 b
3 c
4 d

Tuy nhiên, khi ô A5 có thêm dữ liệu thì đoạn code trên không tự cập nhật thêm được nên chỉ fill được tới B4.

Nhờ Anh Chị giúp cho Em thêm giải pháp để tự động fill được cho dù có thêm bao nhiêu dòng dữ lliệu tại cột A với.
Em cám ơn nhiều lắm ....

 

[phulien1902]

Dear các Anh Chị,
Tình hình là em tạo 1 đoạn code Autofill copy toàn bộ A1:A4 sang B:
Selection.AutoFill Destination:=Range("B1:B4")
A B
1 a
2 b
3 c
4 d

Tuy nhiên, khi ô A5 có thêm dữ liệu thì đoạn code trên không tự cập nhật thêm được nên chỉ fill được tới B4.

Nhờ Anh Chị giúp cho Em thêm giải pháp để tự động fill được cho dù có thêm bao nhiêu dòng dữ lliệu tại cột A với.
Em cám ơn nhiều lắm ....

Bạn thử:

Sub abc()
    Dim LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1:A" & LR).Copy
    Range("B1:B" & LR).PasteSpecial xlPasteValues
End Sub

 

[tamrua]

Bạn thử:

Sub abc()
    Dim LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1:A" & LR).Copy
    Range("B1:B" & LR).PasteSpecial xlPasteValues
End Sub

PHULIEN1902 ơi..... hay quá đi...... cám ơn bạn rất nhiều nhé...
Tám đã học được thêm cách đạt LR của Bạn.....
Một lần nữa cám ơn bạn rất nhiều vì vấn đề đã được giải quyết thật tuyệt...

 

[Lê Duy Thương]

Bạn thử:

Sub abc()
    Dim LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1:A" & LR).Copy
    Range("B1:B" & LR).PasteSpecial xlPasteValues
End Sub

có thể thay Range("B1:B" & LR).PasteSpecial xlPasteValues thành Range("B1").PasteSpecial xlPasteValues
vùng copy xuống không cần chọn dòng cuối