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