如何修改VBA代码实现仅当C、D、E列同行单元格均填充后返回行地址

我们在原有Worksheet_Change事件的基础上，增加行级的三列非空校验即可，逻辑如下：

1. 仅响应当前行C、D、E列的单元格变更操作，其余列修改不触发校验
2. 每次变更后校验当前行C、D、E三个单元格是否全部有内容，空值不满足条件
3. 校验通过后将对应行地址写入A列对应单元格，未通过可选择清空A列旧值

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    Dim curRow As Long
    ' 错误处理，防止事件锁死
    On Error GoTo ErrHandler
    
    For Each c In Target.Cells
        ' 只处理C、D、E列的变更
        If Not Intersect(c, Range("C:E")) Is Nothing Then
            curRow = c.Row
            ' 校验当前行C、D、E三列是否全部非空
            If Range("C" & curRow).Value <> "" And _
               Range("D" & curRow).Value <> "" And _
               Range("E" & curRow).Value <> "" Then
                Application.EnableEvents = False
                ' 写入行地址，格式为x:x
                Range("A" & curRow).Value = curRow & ":" & curRow
            Else
                ' 可选：未满足条件时清空A列对应行的值，不需要可删除该段
                Application.EnableEvents = False
                Range("A" & curRow).Value = ""
            End If
        End If
    Next c
    
ErrHandler:
    ' 无论是否出错都恢复事件触发
    Application.EnableEvents = True
End Sub

代码说明 #

• 新增错误处理分支，避免中间操作报错导致EnableEvents一直为False，后续所有工作表事件失效
• 校验逻辑覆盖所有填充顺序，不管先填C/D/E哪一列，只要三个都填完就会触发写入
• 支持同时修改多个单元格的场景，比如批量粘贴多行列内容时也能逐行校验

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