如何在含SKIP的列中自动递增序号：查找上方最近数值单元格+1

针对你遇到的需求，这里提供两种可行的实现方法：

一、公式法（无需宏，简单易用） #

假设序号列是A列，操作步骤如下：

1. 在A1单元格手动输入初始序号1。
2. 选中A2单元格，输入以下公式：

   =LOOKUP(9.99999999999999E+307,$A$1:A1)+1
   

3. 将A2的公式下拉填充到所有需要生成序号的单元格。

效果说明： #

• 正常状态下，公式会自动延续上一个数字的序号，生成1,2,3,4...的序列。
• 当你把某个单元格替换为SKIP后，其下方的所有公式单元格会自动查找上方最近的数字并+1，实现序号自动减1调整（例如把A3从3改成SKIP，A4会自动从4变成3）。

二、VBA宏法（自动触发，更灵活） #

如果需要更自动化的操作（比如输入SKIP时自动触发序号调整，允许手动修改序号），可以使用工作表事件宏：

1. 按下Alt + F11打开VBA编辑器。
2. 在左侧工程窗口中双击目标工作表（如Sheet1），打开代码编辑界面。
3. 从上方下拉菜单选择Worksheet和Change事件，粘贴以下代码：

   Private Sub Worksheet_Change(ByVal Target As Range)
       Dim lastRow As Long
       Dim i As Long, j As Long
       Dim prevNum As Long
       
       ' 仅处理A列的修改（可根据实际列调整）
       If Intersect(Target, Me.Columns("A")) Is Nothing Then Exit Sub
       
       lastRow = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row
       
       ' 当单元格被设为SKIP或非数字内容时，更新下方序号
       If Target.Value = "SKIP" Or (Not IsNumeric(Target.Value) And Target.Value <> "SKIP") Then
           For i = Target.Row + 1 To lastRow
               If Me.Cells(i, "A").Value <> "SKIP" Then
                   ' 查找上方最近的数字单元格
                   prevNum = 0
                   For j = i - 1 To 1 Step -1
                       If IsNumeric(Me.Cells(j, "A").Value) Then
                           prevNum = Me.Cells(j, "A").Value
                           Exit For
                       End If
                   Next j
                   Me.Cells(i, "A").Value = prevNum + 1
               End If
           Next i
       End If
   End Sub
   

4. 保存文件为.xlsm格式（启用宏的工作簿）。

效果说明： #

• 只要你在A列修改单元格为SKIP，下方的非SKIP序号会自动重新计算，基于上方最近的数字生成新序号。
• 支持手动修改序号数字，后续修改SKIP时依然能正确调整序列。

内容的提问来源于stack exchange，提问作者user3534080