Excel VBA行插入删除事件触发首次操作不生效的修复咨询

问题原因 #

原代码中用于记录标记行初始行号的lngRow是Worksheet_Change过程内的静态变量，工作簿刚打开时初始值为0。第一次触发变更事件时，会直接进入初始化分支完成赋值后退出过程，不会执行插入/删除行的判断逻辑，因此首次操作无响应。

修复步骤 #

1. 打开要监控插入/删除行的对应工作表的代码编辑模块
2. 在模块最顶部（所有过程之外）声明模块级变量，替换原来的过程内静态变量：

' 工作表代码模块顶部声明，所有Sub之外
Private lngRow As Long

3. 新增Worksheet_Activate事件提前完成行号初始化，再修改原有Worksheet_Change事件代码：

' 工作表激活时自动初始化标记行行号
Private Sub Worksheet_Activate()
    Dim rng1 As Range
    Set rng1 = ThisWorkbook.Names("RowMarker").RefersToRange
    lngRow = rng1.Row
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng1 As Range
    Set rng1 = ThisWorkbook.Names("RowMarker").RefersToRange
    ' 兜底逻辑，异常场景下未触发激活事件时也能完成初始化
    If lngRow = 0 Then
        lngRow = rng1.Row
        Exit Sub
    End If
    If rng1.Row = lngRow Then Exit Sub
    If rng1.Row < lngRow Then
        MsgBox lngRow - rng1.Row & " 行被删除"
    Else
        MsgBox rng1.Row - lngRow & " 行被插入"
    End If
    lngRow = rng1.Row
End Sub

可选优化（打开工作簿无需切换工作表即可生效） #

如果需要打开工作簿后不需要手动点击对应工作表就能首次操作生效，可在ThisWorkbook代码模块中添加以下代码：

Private Sub Workbook_Open()
    ' 将"Sheet1"替换为你实际要监控的工作表名称
    Worksheets("Sheet1").lngRow = Worksheets("Sheet1").Range("RowMarker").Row
End Sub

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