VBA嵌套If-Then-Else循环复制不匹配条目问题求助

嘿，我明白你卡在哪了——循环里的End、Exit和Next语句位置错位，很容易导致逻辑中断或者循环无法正确闭合。先给你一个能完美实现需求的完整代码，再一步步拆解问题：

Sub MatchAndCopy()
    Dim crdWs As Worksheet, prdWs As Worksheet, sheet1Ws As Worksheet
    Dim crdRange As Range, prdRange As Range
    Dim crdCell As Range, prdCell As Range
    Dim matchFound As Boolean
    Dim lastRowCrd As Long, lastRowPrd As Long, nextRowSheet1 As Long
    
    ' 定义工作表对象
    Set crdWs = ThisWorkbook.Worksheets("CRD")
    Set prdWs = ThisWorkbook.Worksheets("PRD")
    Set sheet1Ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取CRD和PRD的目标区域（假设是A列从第2行开始的数据行，根据实际调整）
    lastRowCrd = crdWs.Cells(crdWs.Rows.Count, "A").End(xlUp).Row
    lastRowPrd = prdWs.Cells(prdWs.Rows.Count, "A").End(xlUp).Row
    Set crdRange = crdWs.Range("A2:A" & lastRowCrd)
    Set prdRange = prdWs.Range("A2:A" & lastRowPrd)
    
    ' --------------------------
    ' 功能1：高亮PRD中与CRD匹配的A列单元格
    ' --------------------------
    ' 先清除PRD A列的原有高亮（可选，避免残留格式）
    prdRange.Interior.ColorIndex = xlColorIndexNone
    
    For Each prdCell In prdRange
        matchFound = False
        For Each crdCell In crdRange
            If prdCell.Value = crdCell.Value Then
                matchFound = True
                Exit For ' 找到匹配就跳出内层循环，不用继续比对
            End If
        Next crdCell ' 内层循环对应crdCell，必须和For Each对应
        
        If matchFound Then
            prdCell.Interior.Color = RGB(255, 255, 153) ' 浅黄色高亮，可自定义颜色
        End If
    Next prdCell ' 外层循环对应prdCell，顺序不能错
    
    ' --------------------------
    ' 功能2：复制CRD A列中与PRD不匹配的项到Sheet1
    ' --------------------------
    nextRowSheet1 = sheet1Ws.Cells(sheet1Ws.Rows.Count, "A").End(xlUp).Row + 1 ' 找到Sheet1的下一个空行
    
    For Each crdCell In crdRange
        matchFound = False
        ' 用Find方法更高效，替代嵌套循环（适合数据量大的情况）
        Set prdCell = prdRange.Find(What:=crdCell.Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Not prdCell Is Nothing Then
            matchFound = True
        End If
        
        If Not matchFound Then
            crdCell.Copy Destination:=sheet1Ws.Cells(nextRowSheet1, "A")
            nextRowSheet1 = nextRowSheet1 + 1 ' 每次复制后行号+1
        End If
    Next crdCell
    
    MsgBox "匹配和复制操作完成！", vbInformation
End Sub

你之前踩的结构坑我帮你理清楚： #

1. End语句别乱用：End会直接终止整个VBA程序，而不是跳出循环——你之前可能误把End当成了Exit For，这会导致程序刚运行到匹配项就直接结束，根本完不成后续任务。
2. Exit For的位置：只有在内层循环找到匹配项时，才需要用Exit For跳出当前内层循环，不用继续比对其他单元格，节省时间。
3. Next的对应关系：每个For/For Each必须有对应的Next，嵌套循环时Next的顺序要和For的顺序相反（内层循环的Next先写，外层的后写），否则会报编译错误。

额外优化提示： #

• 用Find方法替代嵌套循环比对，数据量大的时候速度会快很多（代码里第二个功能就用了这个方法）。
• 先清除PRD的原有高亮，避免之前的格式残留干扰结果。
• 加入了行号自动获取的逻辑，不用手动写死行数，适配数据变化。

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