Excel中Worksheet_Change宏在批量粘贴写入时不触发的问题咨询

常见故障点 #

• 结构化引用范围与粘贴位置不匹配（最高发诱因）
  工作表变更事件中，Range("tbl_summary[Request ID]")定义的检测范围，仅覆盖tbl_summary表内部属于Request ID列的单元格。
  从宏2逻辑推导：你通过ShWorkSummary.Cells(...,6).End(xlUp).Row计算新行位置，说明F列（第6列）就是Request ID对应的物理列；粘贴起点为D列（第4列），粘贴后F列属于被修改的目标列。
  如果粘贴的新行位置不在tbl_summary的结构化表范围内（比如表的自动扩展功能被关闭，新粘贴的行始终在表的边界外），那么Intersect(Target, Range("tbl_summary[Request ID]"))会返回空值，代码直接跳过时间写入逻辑——既不会报错，也不会执行任何时间写入操作。

手动输入时功能正常，是因为手动操作的位置在表内部的Request ID列范围内；而宏2粘贴的位置在表边界外的同物理列上，不在结构化引用的检测范围内。

• 事件触发被意外阻断
  如果之前的VBA代码因报错退出，将Application.EnableEvents设为False未恢复，会导致所有事件失效。但你提到手动输入时功能正常，因此该可能性较低，可在VBA编辑器立即窗口输入?Application.EnableEvents验证，返回True即可排除该问题。
• 粘贴内容无实际值变更
  Excel的Change事件仅在单元格实际值发生变化时触发，如果粘贴到Request ID列的内容与原有单元格值完全一致，事件会直接跳过。但宏2是向新空行粘贴数据，该诱因概率极低。

修复方案 #

1. 调整事件检测逻辑，兼容表外粘贴的新行
   将事件代码中的结构化列引用替换为物理列范围检测，避免因表不自动扩展导致的漏检：

   Sub Worksheet_Change(ByVal Target As Range)
       Dim rInt As Range
       Dim rCell As Range
       Dim tCell As Range
       ' 原逻辑：仅检测表内Request ID列
       ' Set rInt = Intersect(Target, Range("tbl_summary[Request ID]"))
       ' 替换为：检测Request ID所在物理列（F列，第6列）的所有变更单元格
       Set rInt = Intersect(Target, Me.Columns(6))
       If Not rInt Is Nothing Then
           For Each rCell In rInt
               Set tCell = rCell.Offset(0, -2)
               ' 仅当目标时间单元格为空时写入时间
               If IsEmpty(tCell) Then
                   tCell = Now
                   tCell.NumberFormat = "mmm d, yy   hh:mm"
               End If
           Next
       End If
   End Sub
   

2. 开启表自动扩展功能
   打开Excel选项→校对→自动更正选项→键入时自动套用格式→在表中应用，勾选“在表中自动展开区域”，让粘贴到表相邻行/列的内容自动纳入tbl_summary的结构化范围，让原有结构化引用的检测逻辑正常生效。
3. 可选：粘贴完成后主动写入时间
   如果不想调整事件检测范围，可在宏2的粘贴代码完成后直接写入时间标记，跳过对事件触发的依赖：
   在Range("D" & lRowF).PasteSpecial Paste:=xlPasteValues代码块后追加以下内容：

   Cells(lRowF, 4).Value = Now
   Cells(lRowF, 4).NumberFormat = "mmm d, yy   hh:mm"
   

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