无共同关联项的Excel表格金额与对应月份匹配方案咨询

嘿，这个无关联字段的金额匹配问题确实挺头疼的，尤其是几百行数据手动找根本不现实。给你几个从高效到灵活的方案，按需选就行：

这是处理这类跨表匹配最省心的方法，不用写复杂公式，还能一键刷新更新数据：

• 先处理表2：把横向的月份列转成纵向的行，让每个金额都对应「姓名+月份」的组合
  1. 打开表2，选中数据区域，点击「数据」选项卡→「从表格/区域」，进入Power Query编辑器
  2. 选中所有月份列（比如JAN到DEC），右键选择「逆透视列」，这时会生成「属性」（月份）和「值」（金额）两列，把它们重命名为Month和Amount
• 导入表1到Power Query，然后做合并查询：
  1. 点击「合并查询」→「合并为新查询」，选择表1和处理后的表2，匹配列选两个表的「金额」字段，连接类型选「左外部」（保留表1所有记录，匹配到的显示表2内容）
  2. 展开合并后的列，勾选Name和Month，然后关闭并加载回Excel
     好处：后续数据更新时，只要右键刷新查询就能自动重新匹配，完全不用重复操作，几百行数据处理毫无压力。

如果不想用Power Query，直接在表1里写公式就能出结果：

• 找匹配姓名（假设表2姓名在A列，金额在B-Z列，表1金额在C列）：
  旧版Excel（需按Ctrl+Shift+Enter执行数组公式）：

  =INDEX(表2!$A:$A,MIN(IF(表2!$B:$Z=C2,ROW(表2!$B:$Z),99999)))
  

  新版Excel/365（支持动态数组，直接回车）：

  =TEXTJOIN(", ",TRUE,FILTER(表2!$A:$A,表2!$B:$Z=C2))
  

• 找匹配月份：
  旧版数组公式：

  =INDEX(表2!$1:$1,MIN(IF(表2!$B:$Z=C2,COLUMN(表2!$B:$Z),99999)))
  

  新版动态数组公式：

  =TEXTJOIN(", ",TRUE,FILTER(表2!$1:$1,表2!$B:$Z=C2))
  

注意：如果有重复金额，TEXTJOIN会把所有匹配的姓名/月份用逗号分隔；旧版数组公式只会返回第一个匹配项，且数据量过大时可能卡顿，但几百行完全没问题。

如果需要定期做这个核对，写个简单的VBA脚本就能一键完成，还能避免浮点精度误差：

Sub MatchAmounts()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long, lastCol2 As Long
    Dim i As Long, j As Long, k As Long
    
    ' 修改为你的表名
    Set ws1 = ThisWorkbook.Sheets("表1")
    Set ws2 = ThisWorkbook.Sheets("表2")
    
    ' 获取数据边界
    lastRow1 = ws1.Cells(Rows.Count, "C").End(xlUp).Row ' 表1金额在C列
    lastRow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
    lastCol2 = ws2.Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' 添加结果表头
    ws1.Range("D1").Value = "匹配姓名"
    ws1.Range("E1").Value = "匹配月份"
    
    ' 遍历表1每个金额
    For i = 2 To lastRow1
        Dim targetAmount As Double
        targetAmount = ws1.Cells(i, "C").Value
        ws1.Cells(i, "D").Value = ""
        ws1.Cells(i, "E").Value = ""
        
        ' 遍历表2所有金额单元格
        For j = 2 To lastRow2
            For k = 2 To lastCol2
                ' 用极小值判断，避免浮点精度误差
                If Abs(ws2.Cells(j, k).Value - targetAmount) < 0.001 Then
                    ws1.Cells(i, "D").Value = ws1.Cells(i, "D").Value & ", " & ws2.Cells(j, "A").Value
                    ws1.Cells(i, "E").Value = ws1.Cells(i, "E").Value & ", " & ws2.Cells(1, k).Value
                End If
            Next k
        Next j
        
        ' 去掉结果开头的多余逗号
        If ws1.Cells(i, "D").Value <> "" Then
            ws1.Cells(i, "D").Value = Mid(ws1.Cells(i, "D").Value, 3)
            ws1.Cells(i, "E").Value = Mid(ws1.Cells(i, "E").Value, 3)
        End If
    Next i
    
    MsgBox "金额匹配完成！"
End Sub

使用方法：按Alt+F11打开VBA编辑器，插入模块，粘贴代码，修改表名和列号，然后运行即可。脚本会自动收集所有匹配的姓名和月份，还能处理重复金额的情况。

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