VBA实现仅跨表复制无匹配项单元格区域的问题求助

核心错误点 #

你代码的以下问题直接导致运行异常：

• 复制区域引用错误：copyInfo从目标表的searchRange（R2:R10）定位K列区域，完全取不到源表Scenario Calc Table里要复制的内容，取值错位直接导致后续赋值逻辑混乱。
• 查重范围写死：searchRange固定为R2:R10，目标表辅助列数据超过10行时Find方法无法匹配到新增内容，会一直判定为无重复。
• 匹配逻辑不严谨：Find方法未指定完整参数，会继承上次使用Find的配置，极易出现部分匹配、大小写匹配错误的问题。
• 重复数据仍执行赋值：无论是否查到重复你都做了赋值操作，匹配到重复时你会把复制内容写入R列起始的位置，直接覆盖R、S列的辅助列数据，篡改查重基准导致后续一直判定无重复反复新增，看起来就像陷入无限循环。

修正后代码 #

Sub CopyToDash()
    Dim main As Worksheet
    Set main = Worksheets("Scenario Calc Table")
    Dim log As Worksheet
    Set log = ThisWorkbook.Worksheets("Scenario Dash")
    
    ' 动态获取目标表辅助列已使用范围，无需写死
    Dim searchRange As Range
    Dim logLastRow As Long
    logLastRow = log.Cells(log.Rows.Count, "R").End(xlUp).Row
    If logLastRow >= 2 Then
        Set searchRange = log.Range("R2:R" & logLastRow)
    Else
        Set searchRange = Nothing
    End If
    
    ' 动态获取源表需要遍历的行数
    Dim mainLastRow As Long
    mainLastRow = main.Cells(main.Rows.Count, "M").End(xlUp).Row
    Dim RowCount As Long
    Dim lookFor As String
    Dim dupe As Range
    Dim copyInfo As Range
    Dim destination As Range
    
    For RowCount = 2 To mainLastRow
        lookFor = main.Range("M" & RowCount).Value2
        
        ' 查重逻辑，明确指定匹配规则避免出错
        Set dupe = Nothing
        If Not searchRange Is Nothing Then
            Set dupe = searchRange.Find(What:=lookFor, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
        End If
        
        ' 仅无重复时执行复制
        If dupe Is Nothing Then
            ' 取源表当前行K-L列内容，可根据实际需要复制的列调整
            Set copyInfo = main.Range("K" & RowCount & ":L" & RowCount)
            ' 定位目标表O列最后一行的下一行作为粘贴起始位
            Set destination = log.Range("O" & log.Rows.Count).End(xlUp).Offset(1)
            ' 赋值内容
            destination.Resize(1, copyInfo.Columns.Count).Value2 = copyInfo.Value2
            ' 同步写入辅助列值，保证后续查重准确性
            destination.Offset(0, 3).Value2 = lookFor
            ' 刷新查重范围
            logLastRow = log.Cells(log.Rows.Count, "R").End(xlUp).Row
            Set searchRange = log.Range("R2:R" & logLastRow)
        End If
    Next
    
    log.Activate
End Sub

补充说明 #

代码将行数变量改为Long类型，避免行数超过Integer上限（32767）时报错，仅新增无匹配的行，原有重复行不会被修改，完全符合你只新增指定两行、跳过重复行的需求。

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