Excel中基于条码规则查找表批量返回零件名的方案需求

Sheet1的A列存储了13000条唯一条码扫描结果，这些条码对应25种特定匹配规则，每种规则关联一个零件名。需实现两个目标：

• 在Sheet2创建查找表（Lookup Table），存储所有规则及对应零件名
• 在Sheet1的B列设置可下拉填充的公式，匹配A列条码与规则表中的规则，返回对应零件名

此前通过VBA编写单个匹配函数（示例如下），单独使用正常，但将25个该类函数嵌套进IF公式后出现严重性能问题，因此寻求基于查找表的高效解决方案。

Function PartName4Scan(s As String) As Boolean
    PartName4Scan = s Like "225299460502#[A-Z]##[A-Z]###"
End Function

1. 创建Sheet2查找表 #

• 在Sheet2中，将25种匹配规则录入A列（直接使用VBA函数中Like后的模式字符串，比如225299460502#[A-Z]##[A-Z]###）
• 对应零件名录入B列，确保每一行的A列规则与B列零件名一一对应，无重复规则

2. 高效匹配实现 #

方案一：通用VBA函数（性能最优） #

编写一个自定义函数，读取Sheet2的查找表自动匹配条码，仅需单次调用即可完成匹配：

Function GetPartName(barcode As String, lookupRange As Range) As String
    Dim ruleRow As Range
    ' 遍历查找表的每一行（A列=规则，B列=零件名）
    For Each ruleRow In lookupRange.Rows
        If barcode Like ruleRow.Cells(1, 1).Value Then
            GetPartName = ruleRow.Cells(1, 2).Value
            Exit Function ' 找到匹配后立即退出，减少不必要的循环
        End If
    Next ruleRow
    ' 未匹配到规则时返回自定义提示，可根据需求修改
    GetPartName = "未匹配"
End Function

在Sheet1的B2单元格输入公式，下拉填充至所有行：

=GetPartName(A2, Sheet2!$A$1:$B$25)

该方案仅需每个单元格调用1次函数，且匹配到规则后立即终止遍历，相比原嵌套25个函数的方式，性能提升显著。

方案二：纯Excel公式（无需VBA） #

若不想使用VBA，可将VBA的Like规则转换为Excel原生函数可识别的条件，结合INDEX+MATCH实现匹配。以示例规则225299460502#[A-Z]##[A-Z]###为例，需拆解为位置判断：

=INDEX(Sheet2!$B$1:$B$25, MATCH(TRUE, 
    AND(LEFT(A2,12)="225299460502",
        ISNUMBER(--MID(A2,13,1)),
        CODE(MID(A2,14,1))>=65,CODE(MID(A2,14,1))<=90,
        ISNUMBER(--MID(A2,15,2)),
        CODE(MID(A2,17,1))>=65,CODE(MID(A2,17,1))<=90,
        ISNUMBER(--MID(A2,18,3))),
    0))

将所有25条规则的判断条件用OR包裹后放入MATCH函数，最终公式会较长，但仍比嵌套25个IF函数高效。不过该方案仅适用于规则结构固定的场景，维护成本高于VBA方案。

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