Excel VBA 取消行填充色时同步删除对应日志记录的实现方法

原有代码的核心问题是Log表仅存储操作日期与用户名，未关联对应操作的行标识，无法定位取消填充时需要删除的日志记录。需要先调整Log表结构，新增第三列存储操作行的行号，再优化代码逻辑实现双向操作同步。

前置操作 #

首先调整Log工作表表头，第一行三列依次设置为：操作日期、操作人、操作行号，后续日志会按该结构写入。

优化后完整代码 #

Sub CompleteLine()
    Dim RCount As Integer
    Dim OperateRow As Long
    Dim LogLastRow As Long
    Dim i As Long
    Dim LogSheet As Worksheet
    
    ' 绑定Log工作表
    Set LogSheet = ThisWorkbook.Sheets("Log")
    ' 获取选中区域列数，判断是否为整行
    RCount = Selection.Columns.Count
    ' 获取当前选中行的行号
    OperateRow = Selection.Row
    
    ' 非整行选中直接退出
    If RCount <> 16384 Then Exit Sub
    
    ' 判断当前行是否为已填充目标颜色的状态
    If Selection.Interior.Color = 5296274 Then
        ' 1. 取消行填充
        Selection.Interior.ColorIndex = 0
        
        ' 2. 同步删除Log表中对应行的操作记录
        LogLastRow = LogSheet.Cells(LogSheet.Rows.Count, "A").End(xlUp).Row
        ' 从下往上循环避免删行导致漏判
        For i = LogLastRow To 2 Step -1
            If LogSheet.Cells(i, 3).Value = OperateRow Then
                LogSheet.Rows(i).Delete
                ' 同一行仅会有一条有效记录，匹配到后直接退出循环
                Exit For
            End If
        Next i
        
    Else
        ' 1. 填充目标颜色
        Selection.Interior.Color = 5296274
        
        ' 2. 写入日志，同步存储操作行号
        LogLastRow = LogSheet.Cells(LogSheet.Rows.Count, "A").End(xlUp).Row + 1
        LogSheet.Cells(LogLastRow, 1) = Format(Date, "dd/mm/yyyy")
        LogSheet.Cells(LogLastRow, 2) = Environ("Username")
        LogSheet.Cells(LogLastRow, 3) = OperateRow
    End If
End Sub

注意事项 #

• 代码默认单次选中整行操作，若需要支持批量选中多行操作，可新增选中区域的行循环逻辑
• 若存在多工作表操作、多用户同时操作的场景，可新增操作工作表名、操作时间（精确到秒）字段做更精准的日志匹配
• 代码已优化日志最后一行的定位逻辑，避免原代码中End(xlDown)在空表中定位错误的问题

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