VBA中的for循环，根据输入的数字向下自动填充单元格，其他列跟随向下自动填充第一行

for 循环：

for counter = start To end step step       for  开始的条件不如a = 1   to   结束的条件   10   step  循环的步长  2  1到10每次跳连个数

　　expression                                               循环的表达式内容

next  variable                                         next 返回循环的变量  如  a

 

自动填充例子

Sub 根据钻杆样数向下自动填充()

r = Selection.Row()   '自动获取选择单元格的行号
l = Selection.Column()    '自动获取选择单元的列号
For i = 1 To Selection.Value　　'从1开始循环到选择单元内的值  比如输入了10  这里就会循环10次
Cells(r - 1 + i, l) = i
'复制其他行数据
Cells(a - 1 + i, “B”) = Cells(a, “B”) '第一格数据    复制B列的和选择单元格同行的数据向下根据选择段元格内的内容自动填充复制
Cells(a - 1 + i, "E") = Cells(a, "E") '第E列一格数据
Cells(a - 1 + i, "J") = Cells(a, "J") '第J列一格数据
Cells(a - 1 + i, "K") = Cells(a, "K") '第K列一格数据
Cells(a - 1 + i, "M") = Cells(a, "M") '第M列一格数据
Cells(a - 1 + i, "N") = Cells(a, "N") '第N列一格数据
Cells(a - 1 + i, "O") = Cells(a, "O") '第O列一格数据
Cells(a - 1 + i, "P") = Cells(a, "P") '第P列一格数据
Cells(a - 1 + i, "Q") = Cells(a, "Q") '第Q列一格数据
Cells(a - 1 + i, "R") = Cells(a, "R") '第R列一格数据
Cells(a - 1 + i, "S") = Cells(a, "S") '第S列一格数据
Cells(a - 1 + i, "U") = Cells(a, "U") '第U列一格数据

Next i

End Sub