VBA工作表变更事件：多单元格粘贴时如何自动填充至空列

需求说明 #

当A列或H列的单元格发生变更（包括单个单元格修改、批量粘贴多单元格）时，需要在每个变更行的下一个空列自动写入用户名-日期的标记，同时兼容单个和批量操作场景。

原有代码的问题 #

• 仅保留第6行：能处理批量单元格，但固定写入到偏移4列的位置，无法自动定位到当前行的下一个空列
• 仅保留第7-8行：能定位到当前行的下一个空列，但批量操作时只会在第一行写入标记，无法覆盖所有变更行

修正后的完整代码 #

Private Sub worksheet_change(ByVal Target As Range)
    On Error GoTo errHandler
    Dim rw As Range
    Dim nextEmptyCol As Long
    
    ' 仅处理A列和H列的变更
    If Not Intersect(Range("A:A,H:H"), Target) Is Nothing Then
        ' 排除空内容的变更（比如删除内容）
        If WorksheetFunction.CountA(Target) Then
            Application.EnableEvents = False
            
            ' 遍历所有变更的行
            For Each rw In Target.Rows
                ' 获取当前行的下一个空列
                nextEmptyCol = Cells(rw.Row, Columns.Count).End(xlToLeft).Column + 1
                ' 写入标记内容到空列
                Cells(rw.Row, nextEmptyCol).Value = Environ("username") & "-" & Date
            Next rw
        End If
    End If
    
errHandler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then Err.Raise Err.Number
End Sub

代码关键点说明 #

• 遍历Target.Rows：确保每个变更的行都被单独处理，兼容批量粘贴多单元格的场景
• nextEmptyCol计算：通过Columns.Count.End(xlToLeft)定位当前行最后一个有内容的列，加1得到下一个空列
• Application.EnableEvents开关：避免写入标记时再次触发Worksheet_Change事件，造成循环执行

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