使用Ctrl+Enter修改多单元格时For Next循环意外跳行问题排查

你的代码在处理Ctrl+Enter修改多单元格场景时遗漏行，核心问题出在这几点：

1. 多区域Range处理失效
   当用Ctrl+Enter修改不连续单元格时，Target是包含多个独立区域（Area）的Range对象。但你的代码通过Target.Address(0,0)获取地址字符串后，再用Range(ChangeCell)转换回Range时，只会识别第一个区域，后续区域的行完全被忽略。比如修改A1、A3、A5时，ChangeStartRow和ChangeEndRow只会对应A1所在行，循环范围根本覆盖不到A3、A5的行。

2. 错误假设Target是连续区域
   你的代码通过ChangeStartRow到ChangeEndRow做连续行循环，这只适用于连续单元格修改的场景。但Ctrl+Enter经常用来修改分散的单元格/行，这种连续循环不仅会处理大量未修改的行，还会直接跳过所有非连续的目标行。

3. 依赖Selection的不稳定操作
   代码中用Range(ChangeCell).Select和Selection来获取范围，在批量操作时可能因为Excel的事件触发顺序、屏幕更新延迟导致Selection偏移，进一步导致行号计算错误。

下面是适配Ctrl+Enter修改多单元格（包括不连续场景）的修正代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    Dim processedRows As New Collection ' 用于去重，避免同一行多次处理
    Dim rowNum As Long
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False ' 禁用事件，避免递归触发Change事件
    
    On Error Resume Next ' 捕获集合重复添加的错误
    For Each cell In Target
        rowNum = cell.Row
        processedRows.Add rowNum, Key:=CStr(rowNum) ' 用行号作为Key去重
    Next cell
    On Error GoTo 0
    
    ' 遍历所有唯一的修改行
    For Each rowNum In processedRows
        Call Events_Update_Main_Caller(rowNum)
    Next rowNum
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

• 遍历Target所有单元格：直接循环Target里的每个单元格，确保不遗漏任何被修改的区域。
• 行号去重：用集合存储已处理的行号，避免同一行多个单元格被修改时重复调用Events_Update_Main_Caller。
• 禁用事件递归：添加Application.EnableEvents = False，防止Events_Update_Main_Caller中修改单元格时再次触发当前Change事件，导致逻辑混乱。
• 移除Selection依赖：完全基于Target对象处理，避免Selection带来的不稳定问题。

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