如何为时间戳VBA代码添加循环以支持批量粘贴更新？

原代码的核心问题是仅处理了Target区域的第一个单元格，当批量粘贴数据（此时Target是多单元格范围）时，无法遍历所有修改的单元格。以下是修复后的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xCellColumn As Integer
    Dim xTimeColumn As Integer
    Dim xCell As Range
    Dim xDPRg, xRg As Range
    
    xCellColumn = 2 ' 监控的目标列（第2列）
    xTimeColumn = 9 ' 要更新时间戳的列（第9列）
    
    ' 关闭事件触发，避免修改单元格时递归触发本事件
    Application.EnableEvents = False
    
    On Error Resume Next ' 捕获错误，确保事件能重新开启
    ' 遍历所有被修改的单元格
    For Each xCell In Target
        ' 检查当前单元格是否在监控列，且不为空
        If xCell.Column = xCellColumn And xCell.Value <> "" Then
            Cells(xCell.Row, xTimeColumn) = Now()
        Else
            ' 处理依赖单元格的情况（如果修改的单元格依赖监控列数据）
            Set xDPRg = xCell.Dependents
            For Each xRg In xDPRg
                If xRg.Column = xCellColumn Then
                    Cells(xRg.Row, xTimeColumn) = Now()
                End If
            Next xRg
        End If
    Next xCell
    
    ' 重新开启事件触发
    Application.EnableEvents = True
End Sub

关键修改说明 #

• 遍历所有修改单元格：用For Each xCell In Target循环处理Target范围内的每一个单元格，不再只取第一个单元格的行/列。
• 添加事件开关：修改单元格会再次触发Worksheet_Change事件，通过Application.EnableEvents = False关闭触发，避免递归执行，最后再恢复开启。
• 优化空值判断：原代码Target.Text <> ""在多单元格范围时可能返回不准确结果，改为检查单个单元格的Value是否为空。
• 简化变量逻辑：直接遍历单元格对象，避免原代码中变量声明的类型歧义问题。

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