1、在Excel中的有数据如下图所示,在B列中生成1-10的数字序列:

3、输入代码如下图所示:Sub 鱼木混猪()For i = 1 To 10Range("B" & i) = iNextEnd Sub

5、关闭VBA界面,返回Excel中,可以看到B列中已经生成了1-10的数字序列,如下图所示:

时间:2024-10-13 20:26:59
1、在Excel中的有数据如下图所示,在B列中生成1-10的数字序列:
3、输入代码如下图所示:Sub 鱼木混猪()For i = 1 To 10Range("B" & i) = iNextEnd Sub
5、关闭VBA界面,返回Excel中,可以看到B列中已经生成了1-10的数字序列,如下图所示: