如何实现Excel中的Nth Occurrence Vlookup（多实例匹配）？求助解决重复患者CPT码批量匹配需求

我完全懂你的困扰——VLOOKUP只会揪出第一个匹配项，没法对应重复的患者编号逐一分配不同的CPT码，数据集大的时候手动处理根本不现实。下面给你几个实用的解决方案，从公式到VBA都有，你可以根据自己的Excel熟练度和数据规模选：

方法1：用INDEX+MATCH结合COUNTIF实现无辅助列匹配 #

这个方法不用额外加列，直接在表1的CPT列（比如B2单元格）输入公式：

=INDEX(表2!$F$2:$F$3, MATCH(1, (表2!$E$2:$E$3=A2)*(COUNTIF($B$1:B1,表2!$F$2:$F$3)=0), 0))

• 如果你用的是旧版Excel（比如2019及以前），输入完要按 Ctrl+Shift+Enter 触发数组公式；
• 新版Excel（365/2021）直接回车就行，动态数组会自动处理。

下拉公式后，就能自动给表1里的每个重复PATNO实例分配表2里对应的CPT码了。

公式逻辑拆解 #

• (表2!$E$2:$E$3=A2)：先筛选出表2中和当前行PATNO一致的所有记录；
• (COUNTIF($B$1:B1,表2!$F$2:$F$3)=0)：确保这个CPT码还没在之前的行里被用过（避免重复取值）；
• 两个条件相乘得到唯一符合要求的位置，MATCH找到这个位置，INDEX返回对应的CPT码。

方法2：添加辅助列，让匹配更直观 #

如果你对数组公式有点犯怵，加辅助列的方法更简单易懂：

1. 给表2加序号列：在表2的G2单元格输入 =COUNTIF($E$2:E2, E2)，下拉填充后，每个相同PATNO的记录会被标记为1、2、3...
2. 给表1加序号列：在表1的C2单元格输入 =COUNTIF($A$2:A2, A2)，同样下拉填充，给表1的重复PATNO也编上序号；
3. 精准匹配：在表1的B2单元格输入公式：

=INDEX(表2!$F$2:$F$3, MATCH(1, (表2!$E$2:$E$3=A2)*(表2!$G$2:$G$3=C2), 0))

下拉填充后，就通过「PATNO+序号」的组合精准匹配到每个实例了。

方法3：用VBA批量处理，适合超大数据集 #

如果你的数据量特别大（比如几万行），公式下拉可能会有点卡，用VBA宏处理效率更高：

1. 按 Alt+F11 打开VBA编辑器；
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」；
3. 粘贴下面的代码，记得把代码里的"表1"和"表2"改成你实际的工作表名称：

Sub FillCPT()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim i As Long, j As Long, matchCount As Long
    
    ' 指定工作表，根据实际情况修改
    Set ws1 = ThisWorkbook.Worksheets("表1")
    Set ws2 = ThisWorkbook.Worksheets("表2")
    
    ' 获取两个表的最后一行
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "E").End(xlUp).Row
    
    ' 遍历表1的每一行
    For i = 2 To lastRow1
        matchCount = 0
        ' 在表2中查找匹配的PATNO
        For j = 2 To lastRow2
            If ws2.Cells(j, "E").Value = ws1.Cells(i, "A").Value Then
                matchCount = matchCount + 1
                ' 匹配当前行是第几个实例，填充对应CPT
                If matchCount = Application.WorksheetFunction.CountIf(ws1.Range("A2:A" & i), ws1.Cells(i, "A").Value) Then
                    ws1.Cells(i, "B").Value = ws2.Cells(j, "F").Value
                    Exit For
                End If
            End If
        Next j
    Next i
    
    MsgBox "CPT码填充完成！"
End Sub

4. 按F5运行宏，等待弹窗提示完成即可。

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