Code Filldown xuống thêm 10 dòng nữa

[toandiennuoc123]

Chào các bạn ! Nhờ các bạn viết cho tôi Code Filldown xuống thêm 10 dòng nữa, bắt đầu từ dòng cuối cùng có dữ liệu trong 1 cột. Cám ơn các bạn

 

[SA_DQ]

Mình ghi theo bộ thu macro nè:

Sub Them10Dong()
 Dim Rws As Long
 
 Rws = [A65500].End(xlUp).Row
 Range(Cells(Rws - 1, "A"), Cells(Rws, "A")).Select
 Selection.AutoFill Destination:=Range(Cells(Rws - 1, "A"), Cells(Rws + 10, "A")), Type:=xlFillDefault 
End Sub

 

[phulien1902]

Chào các bạn ! Nhờ các bạn viết cho tôi Code Filldown xuống thêm 10 dòng nữa, bắt đầu từ dòng cuối cùng có dữ liệu trong 1 cột. Cám ơn các bạn

Bạn thử:

    With Cells(Rows.Count, "A").End(xlUp)
        .AutoFill .Resize(11)
    End With