如何在VBA代码每次执行后添加彩色分隔行或高亮最后内容段？

需求概述 #

• 每次执行指定VBA代码后，在各次执行的结果之间添加彩色分隔行，或为本次执行的最后一段内容上色
• 代码操作结束时，在Sheet5中创建一行彩色空白行

修改后的完整VBA代码 #

Sub CopyHighlightedTransactions()
    Dim mycell As Range
    Dim myrange As Range
    Dim lastrow As Long
    Dim startRowSheet5 As Long ' 记录本次执行前Sheet5的最后一行，标记本次新增内容起始位置
    Dim endRowSheet5 As Long ' 记录本次执行后Sheet5的最后一行
    
    ' 清除Sheet2和Sheet4的原有填充色
    Set myrange = Worksheets("sheet2").Range("a2:a1000")
    myrange.Interior.Pattern = xlNone
    
    Set my = Worksheets("sheet4").Range("a2:a1000")
    my.Interior.Pattern = xlNone
    
    ' 记录本次执行前Sheet5的最后一行
    startRowSheet5 = Worksheets("sheet5").Range("a1").Offset(Worksheets("sheet5").Rows.Count - 1, 0).End(xlUp).Row + 1
    
    ' 筛选并复制前10大值到Sheet5
    For Each mc In my
        For i = 1 To 10
            If mc.Value = Application.WorksheetFunction.Large(my, i) Then
                mc.Interior.ColorIndex = 4
                mc.Resize(1, 16).Cut Destination:= _
                    Worksheets("sheet5").Range("a1").Offset(Worksheets("sheet5").Rows.Count - 1, 0).End(xlUp).Offset(1, 0)
            End If
        Next
    Next mc
    
    ' 记录本次执行后Sheet5的最后一行
    endRowSheet5 = Worksheets("sheet5").Range("a1").Offset(Worksheets("sheet5").Rows.Count - 1, 0).End(xlUp).Row
    
    ' 方案1：为本次新增的内容上色（区分各次执行结果）
    ' ColorIndex可自行修改：3=红色，4=绿色，6=黄色，15=灰色
    If startRowSheet5 <= endRowSheet5 Then
        Worksheets("sheet5").Range("A" & startRowSheet5 & ":P" & endRowSheet5).Interior.ColorIndex = 6
    End If
    
    ' 方案2：在本次执行结果末尾添加彩色分隔行（二选一，注释掉另一个即可）
    ' Worksheets("sheet5").Range("A" & endRowSheet5 + 1 & ":P" & endRowSheet5 + 1).Interior.ColorIndex = 3
    ' endRowSheet5 = endRowSheet5 + 1 ' 更新最后一行位置
    
    ' 操作结束时添加彩色空白行
    Worksheets("sheet5").Range("A" & endRowSheet5 + 1 & ":P" & endRowSheet5 + 1).Interior.ColorIndex = 15
    
    ' 自动调整列宽
    Worksheets("sheet5").Columns.AutoFit
End Sub

关键修改说明 #

• 定位新增内容：通过startRowSheet5和endRowSheet5精准标记本次执行新增的内容范围，避免影响历史数据
• 两种区分结果的方式：
  1. 给本次新增行整体上色：直接填充背景色，直观区分各次执行的结果
  2. 添加彩色分隔行：在本次结果末尾插入一行纯色行，作为不同执行批次的分隔线
• 结束彩色空白行：所有复制操作完成后，在Sheet5最后一行下方插入纯色空白行，标记本次执行结束
• 保留原代码核心功能：清除旧填充色、筛选前10大值、自动调整列宽

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