VBA同步Excel工作簿时误复制重复条目问题

你的宏出现重复复制已存在条目的问题，核心原因主要有两点：

• 字符串比较的隐性差异：ID字符串可能包含前导/尾随空格、大小写不一致，或是不可见控制字符（如换行符、制表符），导致肉眼看似相同的ID在VBA中被判定为不相等。
• 双重循环的逻辑缺陷：原UniqueRows函数采用嵌套循环遍历所有行，不仅效率低下（数据量大时会更明显），且未在找到匹配ID后提前终止循环——即使已确认存在匹配，仍会继续遍历剩余行，可能因单元格值的异常波动导致判断失误。

改用Dictionary对象存储当前工作簿的唯一ID，利用字典键的唯一性快速判断匹配关系，同时对ID字符串做标准化处理，彻底解决重复识别问题。以下是修正后的完整代码：

Sub SyncFromWorkbook()
    Dim thisWorksheet As Excel.Worksheet
    Dim syncWorksheet As Excel.Worksheet
    Set thisWorksheet = Application.ActiveSheet
    Set syncWorksheet = Workbooks("workbook2.xlsm").Sheets("Archive")
    
    Dim thisLastRow As Long, syncLastRow As Long
    Dim thisLastColumn As Long, syncLastColumn As Long
    thisLastRow = thisWorksheet.Cells(Rows.Count, 1).End(xlUp).Row
    syncLastRow = syncWorksheet.Cells(Rows.Count, 1).End(xlUp).Row
    thisLastColumn = thisWorksheet.Cells(6, Columns.Count).End(xlToLeft).Column
    syncLastColumn = syncWorksheet.Cells(6, Columns.Count).End(xlToLeft).Column
    
    ' 收集当前工作簿的所有ID（做标准化处理）
    Dim idDict As Object
    Set idDict = CreateObject("Scripting.Dictionary")
    Dim i As Long
    For i = 6 To thisLastRow
        Dim currentID As String
        currentID = Trim(UCase(thisWorksheet.Cells(i, 1).Value)) ' 去除空格+统一大写
        If Not idDict.Exists(currentID) Then
            idDict.Add currentID, i
        End If
    Next i
    
    ' 遍历同步工作簿，筛选未存在的条目并复制
    Dim rowIndex As Long
    rowIndex = thisLastRow + 1
    Application.ScreenUpdating = False ' 关闭屏幕刷新提升运行效率
    For i = 6 To syncLastRow
        Dim syncID As String
        syncID = Trim(UCase(syncWorksheet.Cells(i, 1).Value))
        If Not idDict.Exists(syncID) Then
            ' 复制整行数据到当前工作簿
            syncWorksheet.Range(syncWorksheet.Cells(i, 1), syncWorksheet.Cells(i, syncLastColumn)).Copy _
                Destination:=thisWorksheet.Cells(rowIndex, 1)
            rowIndex = rowIndex + 1
            ' 将新ID加入字典，避免同一次运行中重复复制
            idDict.Add syncID, rowIndex - 1
        End If
    Next i
    Application.ScreenUpdating = True ' 恢复屏幕刷新
End Sub

• 用Dictionary替代嵌套循环：字典的键查找是O(1)操作，比原双重循环的O(n²)效率提升极大，同时避免了遍历所有行可能带来的异常。
• 字符串标准化处理：通过Trim(UCase(...))去除ID的前导/尾随空格，并统一转换为大写，消除因空格、大小写差异导致的匹配失败。
• 关闭屏幕刷新：批量复制时关闭ScreenUpdating，大幅提升运行速度，避免界面闪烁。
• 实时更新字典：复制新条目后立即将ID加入字典，确保同一次运行中不会重复复制相同条目。

• 确保两个工作簿的ID列格式一致（均设为文本格式），避免因数值/文本转换导致的比较差异。
• 若ID包含中文或大小写敏感的特殊字符，可保留Trim但去掉UCase，根据实际需求调整标准化规则。
• 同步完成后，建议对两个工作簿的ID列做去重检查，确保数据一致性。

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