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

excel使用VBA制作宏，自动生成序号列 excel使用VBA制作宏，自动生成序号 列 话题:序号 代码 工作 最近在整理文件资料，每次完成一部分第一列添加序号，虽然下拉也可以自动生成，但是行数太多了也很麻烦，而且经常更新插入行的，自己都烦，后来想想还是弄个VBA函数吧，然后就有了下面这段宏代码，希望对你有帮助哦～Sub 自动生成序号()Dim i%,Lnum%, num%Lnum = 1 „自动生成序号num = ThisWorkbook.ActiveSheet.Range(“B65536”).End(xlUp).Row - 2?返回B列最大非空行数For i = 1 TonumSheet1.Cells(i + 2, 1) = Lnum „在表2中第1列第3行开始自动生成序号Lnum = Lnum + 1Next iEnd Sub如果哪位童鞋有需要的话，将上面的代码复制到“excel--工具--宏--visualbasic编辑器--新建模块”里面就可以了，执行一下试试怎么样。其中Sheet1.Cells(i + 2,1)里的两个参数“i+2”可以修改代表从第几行开始向下生成，“1”表示在第1列生成，可根据需要自行修改，sheet1就是工作表1可以改为sheet2等，就看你要添加序号的内容是 在哪个工作表内。在网上搜了一些感觉都整的很麻烦，所以 自制了一个分享一下。