如何在Excel中实现自动编号？

Question

如题所述

Answer 1

步骤：如图：

1、按Alt+F11打开VBA代码编辑器

2、点击顶部的“插入”---模块

3、双击左侧栏中的模块

4、在模块的右侧的代码编辑区粘贴代码

5、点击画粉红色圆圈的按钮，可运行代码。

Sub ChaHang()

Dim i As Integer

For i = 6 To 3 Step -1

Rows(i + 1).Resize(2).Insert

Next

End Sub

【注意1】：

代码中，行号范围6 to 3，大数写在前面，不能写为 3 to 6。

可以根据自己的实际情况修改行号数字，但必须大数在to前面，小数在to后面。

【注意2】：

Resize(2)这括号内的2是指插入2行，可根据自己的实际情况，修改这个数字。

【注意3】：

如果你的excel文件是.xlsx格式，当你关闭excel文件时，会弹出提醒你，代码会丢失。

你可以点“是”，另存为.xlsm格式(启用宏的工作簿)，这样下次打开文件时代码还在。

也可以点“否”，保持原来的.xlsx格式，这样下次打开文件时，只是代码没有了而已。