excel vba快速填充公式（也就是往下拉）

Question

1。 vba快速（要快）
2。K：BM这个范围最后一行
3。填充7次（往下拉7行）

Answer 1

1、名称框中输入：BM1

2、冻结窗格
3、名称框中输入：K1:BM1
4、鼠标指针一道BM1的右下角的小方点位置，按住鼠标左键，往下拖动。
5、取消冻结窗格追问

vba

追答

Range("k1:bm1").Select
Selection.AutoFill Destination:=Range("K1:BM7"), Type:=xlFillDefault

追问

Range("k1:bm1").Select不是前面第1行
是倒数(最后)第1行

追答

rn = ActiveSheet.UsedRange.Rows.Count
Range("k" & rn & ":bm" & rn).Select
Selection.AutoFill Destination:=Range("K" & rn & ":BM" & (rn+6)), Type:=xlFillDefault