自动更新序号（插入/删除行）

十二猪肠

大家应该遇到过「增加/删减」行的情况，序号往往需要重新编辑，非常麻烦，我提供3个方法给大家，仅供参考。
一、函数：b=a+1
假设我所有的例子都是从B3开始排序的，那么：
①B3=1；
②B4=B3+1。
③下拉或者双击B4右下角，自动扩展公式。
优点：公式容易理解，在删减行时很完美；

缺点：B3要设置常数起始值，自身不好改变；插入空行不好处理；如上图，筛选后即为灾难（与常数值有关）

二、函数：b=row(a)-x
①B3=row(B3)-2
②扩展公式
解释：row(a)取该单元格行号，再看看它与你的目标（1）相差多少，相减即可

优点：删减行，筛选都没问题（但不会与以前一一对应，a-1,b-2……）；
缺点：增加行仍需手动扩展公式。

三、VBA：



Sub 更新序号()
Dim i, k As Integer
For i = 3 To Range("B65536").End(xlUp).Row
    Range("B" & i) = k + 1
    k = k + 1
Next i
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False                        '自动触发+录入时间，所以先禁用事件
    If Application.Intersect(Target, Range("B3:B65536")) Is Nothing Then Exit Sub   '重新定义改变范围（单元格→区域）；如果没有数据录入，不执行时间
        Call 更新序号                                                               '执行更新序号程序
Application.EnableEvents = True                         '重新执行自动事件
End Sub




优点：随便折腾都无所谓，数据量大时效果更过瘾，保证效率与正确率的神技！；筛选后1234和abcd都是对应的；

缺点：筛选后，若序号单元格发生更改（主动or误触），将会发生不可撤回的重新排序操作，建议操作前保存文档，或建立备用数据库，或增加代码完整性（如，if 排序操作，then 不执行call等等）；
另外的一个不算缺点的缺点——要学习VBA，尤其是用WPS的朋友。


总结：
1.不管黑猫白猫抓到猫就是好猫。如果实际不懂公式，手动Ctrl下拉12345也是可以的，重要的是把事情给搞妥当了；
2.无论哪种方法，都会有其缺陷。有的缺陷可以通过补完细节完成（如嵌入更多函数），有的则不可以（函数的灵活性和自由度较VBA低），实际使用时应灵活应用。

如果你也有其他的方法，欢迎留言给大家参考学习噢，分享让1+1＞2；
如果这帖子能启发你解决问题，评论点赞啥的给一给支持个呗~

雷雷爸

老师，您这张工作表如何根据序号对应的d列是否有内容自动更新序号呢，增加或者删除行都能自动更新，根据d列单元格是否内容触发事件，代码能在对应的工作表内最好，因为只应用于一个工作表

smiletwo

=row（）-row（标题行）