excel 使用VBA制作宏，自动生成序号列

最近在整理文件资料，每次完成一部分第一列添加序号，虽然下拉也可以自动生成，但是行数太多了也很麻烦，而且经常更新插入行的，自己都烦，后来想想还是弄个VBA函数吧，然后就有了下面这段宏代码，希望对你有帮助哦！
Sub 自动生成序号()

Dim i%, Lnum%, num%

Lnum = 1 '自动生成序号
num = ThisWorkbook.ActiveSheet.Range('B65536').End(xlUp).Row - 2 '返回B列最大非空行数
For i = 1 To num
Sheet1.Cells(i + 2, 1) = Lnum '在表2中第1列第3行开始自动生成序号
Lnum = Lnum + 1
Next i
End Sub
如果哪位童鞋有需要的话，将上面的代码复制到“excel--工具--宏--visual basic编辑器--新建模块”里面就可以了，执行一下试试怎么样。其中Sheet1.Cells(i + 2, 1)里的两个参数“i+2”可以修改代表从第几行开始向下生成，“1”表示在第1列生成，可根据需要自行修改，sheet1就是工作表1可以改为sheet2等，就看你要添加序号的内容是在哪个工作表内。在网上搜了一些感觉都整的很麻烦，所以自制了一个分享一下。