1、在Excel中的有数据如下图所示,在B列中生成1-10的数字序列:
2、Alt+F11,打开VBA编辑界面,并双击左上角源数据所在工作表,如下图所示:
3、输入代码如下图所示:Sub 鱼木混猪()For i = 1 To 10Range("B" & i) = iNextEnd Sub
4、然后点击三角形的“运行子程序”按钮,如下图所示:
5、关闭VBA界面,返回Excel中,可以看到B列中已经生成了1-10的数字序列,如下图所示:
1、在Excel中的有数据如下图所示,在B列中生成1-10的数字序列:
2、Alt+F11,打开VBA编辑界面,并双击左上角源数据所在工作表,如下图所示:
3、输入代码如下图所示:Sub 鱼木混猪()For i = 1 To 10Range("B" & i) = iNextEnd Sub
4、然后点击三角形的“运行子程序”按钮,如下图所示:
5、关闭VBA界面,返回Excel中,可以看到B列中已经生成了1-10的数字序列,如下图所示: