Excel VBA多工作表数据匹配代码异常：无法识别Plan3结果求助

原代码中的核心问题 #

• 变量名不匹配：用Numb存储Plan1工作表A列的取值，但在Plan2、Plan3的匹配判断中错误使用了未定义的MCI变量，直接导致匹配逻辑完全失效。
• 变量引用错误：结果判断时使用了未定义的Data1变量，而实际记录Plan2匹配状态的是data1s，导致Plan2的匹配结果无法被正确识别。
• 结果逻辑完全偏离需求：原代码中当Plan2和Plan3均匹配时返回"Not Find"，与需求要求的"Neutral"完全相反，且分支逻辑混乱。
• Plan3标记错误：将符合条件的状态存储为data3/data3150k，但需求需要返回"Plan3"；同时只要J列数值符合范围就属于有效匹配，无需区分两种子情况。
• Plan2循环逻辑缺陷：每次循环都会重置data1s为空，若后续循环未找到匹配项，会覆盖之前的有效标记，导致Plan2的匹配状态丢失。

修复后的VBA代码 #

Sub MacroOne()
    Dim wsPlan1 As Worksheet
    Dim wsPlan2 As Worksheet
    Dim wsPlan3 As Worksheet
    Dim lastRowPlan1 As Long
    Dim lastRowPlan2 As Long
    Dim lastRowPlan3 As Long
    Dim currentValue As Variant
    Dim row As Long
    Dim col As Long
    Dim isPlan2Match As Boolean ' 标记Plan2是否匹配符合条件
    Dim isPlan3Match As Boolean ' 标记Plan3是否匹配符合条件

    Set wsPlan1 = ThisWorkbook.Sheets("Plan1")
    Set wsPlan2 = ThisWorkbook.Sheets("Plan2")
    Set wsPlan3 = ThisWorkbook.Sheets("Plan3")
    
    ' 统一格式，避免匹配时的格式问题
    wsPlan2.Range("F:F").NumberFormat = "000000000"
    wsPlan3.Range("F:F").NumberFormat = "000000000"
    
    lastRowPlan1 = wsPlan1.Cells(wsPlan1.Rows.Count, "A").End(xlUp).row
    
    For row = 4 To lastRowPlan1
        currentValue = wsPlan1.Cells(row, "A").Value
        isPlan2Match = False ' 初始化标记
        isPlan3Match = False
        
        ' 检查Plan2的匹配情况
        lastRowPlan2 = wsPlan2.Cells(wsPlan2.Rows.Count, "F").End(xlUp).row
        For col = 4 To lastRowPlan2
            ' 匹配F列值，且Z或AD列大于1000
            If wsPlan2.Cells(col, "F").Value = currentValue Then
                If wsPlan2.Cells(col, "Z").Value > 1000 Or wsPlan2.Cells(col, "AD").Value > 1000 Then
                    isPlan2Match = True
                    Exit For ' 找到符合条件的行，退出循环
                End If
            End If
        Next col

        ' 检查Plan3的匹配情况
        lastRowPlan3 = wsPlan3.Cells(wsPlan3.Rows.Count, "F").End(xlUp).row
        For col = 3 To lastRowPlan3
            ' 匹配F列值，且J列数值符合范围
            If wsPlan3.Cells(col, "F").Value = currentValue Then
                If wsPlan3.Cells(col, "J").Value >= 1000 And wsPlan3.Cells(col, "J").Value <= 149999 Or wsPlan3.Cells(col, "J").Value > 150000 Then
                    isPlan3Match = True
                    Exit For ' 找到符合条件的行，退出循环
                End If
            End If
        Next col

        ' 根据匹配结果填写Plan1的K列
        Select Case True
            Case isPlan2Match And isPlan3Match
                wsPlan1.Cells(row, "K").Value = "Neutral"
            Case isPlan2Match
                wsPlan1.Cells(row, "K").Value = "Plan2"
            Case isPlan3Match
                wsPlan1.Cells(row, "K").Value = "Plan3"
            Case Else
                wsPlan1.Cells(row, "K").Value = "" ' 无匹配时留空，可根据需求调整
        End Select
    Next row
End Sub

关键修复说明 #

• 统一变量命名：使用currentValue存储Plan1的A列值，避免变量名混淆，确保匹配逻辑正确。
• 使用布尔标记替代字符串：用isPlan2Match和isPlan3Match两个布尔变量记录匹配状态，逻辑更清晰，避免字符串标记的混乱。
• 修正结果判断逻辑：使用Select Case语句严格按照需求规则分配结果：
  • 两者均匹配 → "Neutral"
  • 仅Plan2匹配 → "Plan2"
  • 仅Plan3匹配 → "Plan3"
• 优化循环逻辑：找到符合条件的行后立即退出循环，提升运行效率；初始化标记变量，避免之前循环的状态残留。
• 修正Plan3的匹配条件：合并两种符合需求的J列数值范围，统一标记为有效匹配。

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