在excel表格中如何用vba给单元格批量输入序号?

在excel表格中如何用vba给单元格批量输入序号?

步骤

1、首先我们打开一个工作样表作为例子。

2、在excel工作表中输入序列号很简单，在a1，a2单元格中输入数字1和2后，使用填充功能下拉即可完成序列号的输入。

3、可是当我们遇到输入大量序列号的时候就会很麻烦，需要拖动的距离太长，那么我们可以使用vba来解决这个问题。我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Option Explicit

Sub xulie()

Dim i As Integer

For i = 1 To 100

ActiveSheet.Cells(i, 1).Value = i

Next i

End Sub

4、这里我们可以直接输入了100个位数的序列号，如果需要更多，也就是修改一下100这个数字即可。

5、当然我们还可以采取更方便的方法来输入终止的序列数，简单的将100做一个inputbox输入赋值即可。

6、重新运行代码，这次会弹出输入n值的面板，我们输入所需要的数据即可。这里我们定义的是整数型，所以数据容量有限，不要超过最大值。

以上就是在excel表格中如何用vba给单元格批量输入序号方法介绍，操作很简单的，大家学会了吗？希望能对大家有所帮助！

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。