Excel双工作表循环匹配录入数据代码漏匹配问题如何解决

核心错误原因 #

你提供的代码漏匹配的核心问题是判断条件中使用了未赋值的变量valueToSearch：VBA会默认给未声明未赋值的变量置为空值，导致绝大多数匹配条件无法触发，看起来像跳过了匹配项。
此外还有几个易导致匹配失败的问题：

1. 没有强制变量声明，未定义变量不会抛出报错，难以定位问题
2. 未处理单元格前后空格、文本/数字格式差异带来的匹配失效
3. 未显式读取单元格Value属性，存在隐式转换风险

修复后完整代码 #

Option Explicit ' 强制变量声明，必加

Sub Test1()
    Dim lookUpSheet As Worksheet, ServicesSheet As Worksheet
    Dim lastRowServices As Long, lastRowLookup As Long
    Dim i As Long, s As Long
    Dim portIP As String, valueToSearch As String ' 匹配用变量提前声明
    
    Set lookUpSheet = Worksheets("MainSheet")
    Set ServicesSheet = Worksheets("SubSheet")
    
    ' 获取两个表的最大行号
    lastRowServices = ServicesSheet.Cells(Rows.Count, "B").End(xlUp).Row
    lastRowLookup = lookUpSheet.Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 遍历主表：默认从第2行开始（跳过表头），如果无表头可改为1
    For i = 2 To lastRowLookup
        ' 【注意】这里根据你的业务逻辑补全valueToSearch的取值
        ' 原代码匹配子表第3列(C列)，这里默认取主表第8列(H列)，你可以自行调整列号
        valueToSearch = Trim(lookUpSheet.Cells(i, 8).Value)
        portIP = Trim(lookUpSheet.Cells(i, 9).Value) ' 原逻辑取主表第9列(I列)
        
        ' 遍历子表匹配
        For s = 2 To lastRowServices
            If Trim(ServicesSheet.Cells(s, 3).Value) = valueToSearch And _
               Trim(ServicesSheet.Cells(s, 4).Value) = portIP Then
                lookUpSheet.Cells(i, 16).Value = "DBA Team"
                Exit For ' 匹配到就跳出子表循环，无需继续遍历
            End If
        Next s
    Next i
End Sub

关键调整说明 #

• 新增Option Explicit强制变量声明，避免未定义变量导致的逻辑错误
• 补充了valueToSearch的赋值逻辑，你可以根据实际要匹配的主表字段修改对应的列号
• 所有单元格取值都加了Trim()函数，自动去除前后空格，避免空格导致的匹配失败
• 显式声明所有变量的类型，代码运行效率更高，也更容易排查问题
• 主表遍历默认从第2行开始跳过表头，如果你的主表没有表头，把For i = 2改成For i = 1即可

可选优化（数据量大于1000行推荐） #

如果两个表数据量较大，嵌套循环运行会比较慢，可以用字典存储子表的匹配键，只需遍历两次表即可完成匹配，运行效率会提升数倍。

内容的提问来源于stack exchange，提问作者M.Khalaf