Excel VBA代码异常：未按条件复制Update中不存在于Existing的数据

你的代码原本逻辑正确，但出现复制所有行的情况，大概率是以下几个原因导致的，对应解决方法如下：

1. 数据类型不匹配导致判断失效 #

Scripting.Dictionary的键对数据类型敏感，如果Existing和Update工作表A列的数据类型不一致（比如一列是数字、一列是文本格式的数字），即使内容看起来一样，Dictionary也会判定为不同的键。比如Existing中A列是数字123，Update中是文本"123"，就会被视为两个不同的键，导致Update中的数据被误判为不存在于Existing中。

解决方法：将所有键统一转换为字符串类型后再加入Dictionary，同时跳过空值：

For Each Cl In ws1.Range("A2", ws1.Range("A" & Rows.Count).End(xlUp))
    If Not IsEmpty(Cl.Value) Then
        .Item(CStr(Cl.Value)) = Empty
    End If
Next Cl
For Each Cl In ws2.Range("A2", ws2.Range("A" & Rows.Count).End(xlUp))
    If Not IsEmpty(Cl.Value) Then
        If Not .exists(CStr(Cl.Value)) Then
            If Rng Is Nothing Then Set Rng = Cl Else Set Rng = Union(Rng, Cl)
        End If
    End If
Next Cl

2. Dictionary区分大小写导致误判 #

默认情况下，Scripting.Dictionary是区分大小写的。比如Existing中是"ABC"，Update中是"abc"，会被判定为不同的键，导致Update中的数据被错误复制。

解决方法：创建Dictionary时设置文本比较模式，忽略大小写：

With CreateObject("scripting.dictionary")
    .CompareMode = vbTextCompare ' 添加这一行开启大小写不敏感
    ' 后续循环代码不变

3. Existing工作表A列存在空值，导致部分数据未被加入Dictionary #

如果Existing工作表A2到最后一行之间存在空单元格，ws1.Range("A2", ws1.Range("A" & Rows.Count).End(xlUp))只会取到第一个空单元格之前的行，后面的有效数据不会被加入Dictionary，导致Update中对应的数据被误判为不存在。

解决方法：改为遍历A列所有非空单元格（跳过表头）：

' 替换原Existing的循环
For Each Cl In ws1.Columns("A").SpecialCells(xlCellTypeConstants)
    If Cl.Row >= 2 Then ' 跳过表头行
        .Item(CStr(Cl.Value)) = Empty
    End If
Next Cl

4. Update工作表残留旧数据，导致比对范围错误 #

导入数据时是追加到Update表的末尾，如果之前Update表有未清空的旧数据，这些旧数据会和新导入的数据一起参与比对。如果旧数据原本就不在Existing中，就会被重复复制，甚至出现“复制所有数据”的错觉。

解决方法：导入新数据前先清空Update表的旧数据：

' 在Import Data部分，打开文件前添加清空代码
ThisWorkbook.Worksheets("Update").UsedRange.ClearContents
FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", Filefilter:="Excel Files (*.xlsx),*.xlsx")

补充优化建议 #

复制行时如果HIDE表为空，当前代码会定位到A1可能覆盖表头，建议改为：

If Not Rng Is Nothing Then
    Dim targetRow As Long
    targetRow = IIf(ws3.Range("A1").Value = "", 1, ws3.Range("A" & Rows.Count).End(xlUp).Row + 1)
    Rng.EntireRow.Copy ws3.Range("A" & targetRow)
End If

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