按“ALT+F11”键进入代码编辑
复制以下代码到编辑窗口内:
Private Sub Worksheet_Change(ByVal Target As Range) '工作表变化事件引发下列程序
Application.EnableEvents = False '变化事件引发禁止
X0 = ActiveCell.Row 'X0=活动单元格行数
If X0 > 1 Then 'X0在2以上
Cells(X0, 1) = Cells(X0 - 1, 1) + 1 'X0行=X0-1行+1
Else: Cells(X0, 1) = 1 'X0为1时=1
End If '结束条件判断
Do While Cells(X0 + 1, 1) <> "" 'X0+1行非空则执行
Cells(X0 + 1, 1) = Cells(X0, 1) + 1 '单元格X0+1行=X0行+1
X0 = X0 + 1 'X0递增执行
Loop '返回while语句
Application.EnableEvents = True '变化事件引发开启
End Sub '结束程序
所有文章都会同步发布到我的独立博客上 imsense.site 欢迎点击
宝剑锋从磨砺出,梅花香自苦寒来。
如果,您认为阅读这篇博客让您有些收获,不妨点击一下右下角的【推荐】按钮。
如果,您希望更容易地发现我的新博客,不妨关注一下或者分享一下。
未注明转载的文章,版权归作者所有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。