excel 如何插入不重复的编号

来源：百度知道 编辑：UC知道 时间：2024/06/14 00:26:18
哪位大哥能帮我写一个 宏 在excel假如A列中 插入不重复的顺序编号

不是系统一次性生成,是要根据我想插在哪就插在哪 ,如:
我点要A1插入1
我再到A20 要插入2
再点到A2插入3

总之我点要点一下宏就帮我自动插入不重复的顺序编号
谢谢前面大哥，＝row()但这样不能实现，我按插入顺序编号

不一定要宏，简单的函数公式就可以了：
=row()

Sub Paihao()
Set myRange = Worksheets("Sheet1").Range("A1:A65536")
answer = Application.WorksheetFunction.Max(myRange)
ActiveCell.FormulaR1C1 = answer + 1
End Sub

然后设定一个快捷键，点到A列中任何位置，运行宏就自动编个号。