合并Worksheet执行错误：切换工作表后代码运行异常咨询

嘿，这俩问题我太熟了！先给你拆解下背后的原因，再给你直接能用的修正代码，保证解决问题。

问题1：切换工作表后代码失效的原因 #

你原来的代码大概率是依赖了ActiveSheet或者没加工作表前缀的Range/Cells（比如直接写Cells(1,1)）。这种写法默认会操作当前激活的工作表，所以当你切换到其他表运行时，代码就会误以为当前表是Sheet3，自然就跑错了。

解决核心：永远明确指定工作表对象，别依赖激活状态！

问题2：重复运行出现异常的原因 #

原来的代码没实现靠谱的去重逻辑，要么是判断条件不对，要么是每次运行都把Sheet5的所有数据插一遍，导致重复数据甚至格式混乱。

解决核心：先收集Sheet3已有的数据标识，再判断Sheet5的每条数据是否已存在。

基础版修正代码（适合数据量不大的情况） #

这个版本逻辑清晰，容易理解，适合中小规模数据：

Sub MergeSheet5ToSheet3_Basic()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRowSource As Long, lastRowTarget As Long
    Dim i As Long, j As Long
    Dim isDuplicate As Boolean
    
    ' 1. 明确指定两个工作表，完全不依赖激活状态
    Set wsSource = ThisWorkbook.Worksheets("Sheet5") ' 数据源表
    Set wsTarget = ThisWorkbook.Worksheets("Sheet3") ' 目标表
    
    ' 2. 获取两个表的最后一行（假设表头在第1行，数据从第2行开始）
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
    
    ' 3. 遍历Sheet5的每一行数据（跳过表头）
    For i = 2 To lastRowSource
        isDuplicate = False
        
        ' 检查Sheet3是否已存在当前行（这里用A列作为唯一标识，可根据你的数据修改列号/列名）
        For j = 2 To lastRowTarget
            If wsSource.Cells(i, "A").Value = wsTarget.Cells(j, "A").Value Then
                isDuplicate = True
                Exit For ' 找到重复就直接跳出循环，不用继续查
            End If
        Next j
        
        ' 4. 如果不是重复数据，就复制到Sheet3的最后一行
        If Not isDuplicate Then
            lastRowTarget = lastRowTarget + 1 ' 更新目标表的最后一行位置
            wsSource.Rows(i).Copy Destination:=wsTarget.Rows(lastRowTarget)
            ' 要是不想复制格式，只用值的话，换成下面这句：
            ' wsTarget.Rows(lastRowTarget).Value = wsSource.Rows(i).Value
        End If
    Next i
    
    MsgBox "合并搞定！只加了Sheet5里Sheet3没有的数据~", vbInformation
End Sub

高效版代码（适合数据量大的情况） #

如果你的数据行数很多（比如上千行），上面的双循环会变慢，用**字典（Dictionary）**来存储已有的唯一标识，查找速度快很多：

Sub MergeSheet5ToSheet3_Efficient()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRowSource As Long, lastRowTarget As Long
    Dim i As Long
    Dim uniqueIDs As Object ' 字典对象，用来存已有的唯一ID
    
    ' 1. 指定工作表
    Set wsSource = ThisWorkbook.Worksheets("Sheet5")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet3")
    Set uniqueIDs = CreateObject("Scripting.Dictionary") ' 创建字典
    
    ' 2. 先把Sheet3已有的唯一ID存入字典（还是用A列当标识，按需修改）
    lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRowTarget
        ' 避免重复加入字典（防止Sheet3本身有重复数据）
        If Not uniqueIDs.Exists(wsTarget.Cells(i, "A").Value) Then
            uniqueIDs.Add wsTarget.Cells(i, "A").Value, True
        End If
    Next i
    
    ' 3. 遍历Sheet5的数据，判断是否在字典中
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRowSource
        If Not uniqueIDs.Exists(wsSource.Cells(i, "A").Value) Then
            lastRowTarget = lastRowTarget + 1
            wsSource.Rows(i).Copy Destination:=wsTarget.Rows(lastRowTarget)
            uniqueIDs.Add wsSource.Cells(i, "A").Value, True ' 把新增的ID也加入字典，避免本次循环重复插入
        End If
    Next i
    
    MsgBox "高效合并完成！速度飞起~", vbInformation
End Sub

几个关键注意事项 #

• 修改唯一标识列：如果你的数据不是用A列当唯一键，把代码里的"A"改成对应的列名（比如"B"）或者列号（比如2）就行。要是需要多列组合判断重复，基础版里可以把条件改成If wsSource.Cells(i,"A").Value = wsTarget.Cells(j,"A").Value And wsSource.Cells(i,"B").Value = wsTarget.Cells(j,"B").Value Then。
• 表头位置：如果你的表头不在第1行，记得把循环的起始行（比如i=2）改成对应的行号。
• 备份数据：测试代码前最好先备份你的工作簿，避免意外操作搞乱数据。

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