如何用VBA脚本复制数据时避免重复及修复背景色判断问题

Sub Test()
    Dim lastRowTest1 As Long, lastRowTest2 As Long
    Dim r As Long, matchRow As Long
    Dim isDuplicate As Boolean
    
    ' 定义目标绿色（可根据实际表格颜色调整，以下三种方式任选其一）
    ' Const TargetColor As Long = vbGreen ' 内置绿色常量
    ' Const TargetColor As Long = RGB(0, 255, 0) ' RGB绿色值
    Const TargetColor As Long = 4 ' Excel颜色索引（对应标准绿色）
    
    ' 获取Test1数据区域最后一行
    lastRowTest1 = Worksheets("Test1").Range("A" & Rows.Count).End(xlUp).Row
    
    ' 遍历Test1的有效数据行（从第2行表头下方开始）
    For r = 2 To lastRowTest1
        ' 检查当前行的两个核心条件：F列值为"e"，且当前行A:F区域背景为目标绿色
        If Worksheets("Test1").Range("F" & r).Value = "e" And _
           Worksheets("Test1").Range("A" & r & ":F" & r).Interior.Color = TargetColor Then
            
            isDuplicate = False
            ' 获取Test2当前最后一行
            lastRowTest2 = Worksheets("Test2").Range("A" & Rows.Count).End(xlUp).Row
            
            ' 检查Test2中是否已存在当前行（以A列值为唯一标识，可根据实际需求更换）
            If lastRowTest2 >= 2 Then
                On Error Resume Next
                matchRow = Worksheets("Test2").Range("A:A").Find(What:=Worksheets("Test1").Range("A" & r).Value, _
                                                               LookIn:=xlValues, LookAt:=xlWhole).Row
                On Error GoTo 0
                If matchRow > 0 Then isDuplicate = True
            End If
            
            ' 非重复数据则执行复制
            If Not isDuplicate Then
                Worksheets("Test1").Range("A" & r & ":B" & r & ",E" & r).Copy _
                    Destination:=Worksheets("Test2").Range("A" & lastRowTest2 + 1)
            End If
        End If
    Next r
End Sub

1. 重复数据问题修复 #

• 新增重复校验逻辑：以Test1当前行的A列值作为唯一判断依据（可根据你的表格结构更换为其他唯一标识列），在Test2中检索是否已存在该数据。
• 找到匹配行则标记为重复，跳过复制；未找到则执行复制操作，避免重复导入。
• 移除低效的Activate和Select操作，直接使用Copy Destination完成粘贴，提升代码稳定性和运行速度。

2. 背景色判断异常修复 #

• 原代码中Worksheets("Test1").Range("A:F").Interior.Color = Green是判断整个A:F列的背景色，而非当前行的颜色，导致逻辑完全错误。修正为判断当前行的A:F区域：Range("A" & r & ":F" & r).Interior.Color。
• 原代码中Green不是VBA标准常量，需替换为明确的颜色定义（代码中提供了三种可选方式，可根据表格实际绿色调整）。
• 若你需要判断的是当前行单个单元格的背景色（比如仅A列），只需把Range("A" & r & ":F" & r)改为Range("A" & r)即可。

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