Question

excel vba 生成序列号

如果b1=10,则a3=1,a4=2.....a12=10
用函数怎么表达，用vba又怎么表达

Answer 1

（1）函数方法：
令a3=if ($b$1=10,row()-2)，然后向下拖拽A3单元格即可
（2）VBA方法：
Sub test()
Dim s As Integer

For s = 3 To 5000 '5000为最后一个序列号行数，3为第一个序列号行数，3与5000皆可自定
If Range("b1") = 10 Then
Range("a" & s) = s - 2
End If
Next

End Sub

Answer 2

Answer 3

VBA代码
Private Sub CommandButton1_Click()
Dim i%, j%, b1%

b1 = 10
j = 1

For i = 1 To b1
Sheet1.Cells(i, j) = i
Next i

End Sub

追答

没有看明白你后续的提问，并且还很多语法的错误！你就告诉我你的目的是什么？要达到什么样的效果就简单的多了，你定义这么多变量都没有什么用的
For k = 1 To 无限大的整数，可以用while循环！