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

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
11,844
Được thích
17,762
Điểm
1,860
Mình ghi theo bộ thu macro nè:
PHP:
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

GPE - My love
Tham gia ngày
6 Tháng bảy 2013
Bài viết
3,530
Được thích
4,399
Điểm
560
Nơi ở
Hải Phòng
Top Bottom