excel如何匹配同名数据_EXCEL如何匹配汇总字段

下面举例：汇总同一个房间号的所有发票号码；

第一步：打开需要匹配汇总发票号码的EXCEL表格；并按alt+F11打开VBA，选择插入“模块”；

第二步：在新建模块里输入以下代码：

Function abc(a As Range, b As Range, c As String)
Dim t As String
'如果a与b的区域大小不同，就显示“错误”
If a.Rows.Count <> b.Rows.Count Then abc = "错误": Exit Function
'在区域a是循环
For i = 1 To a.Rows.Count
'如果在a中找到与c相同的值，就把同一行中的b的内容提取出来，存入变量t中。
If a.Cells(i, 1) = c Then t = t & " " & b.Cells(i, 1)
Next
'将变量的值赋给自定义函数
abc = t
End Function

第三步：返回EXCLE表格，将发票号和对应的唯一值(房间号、代码或是其他)复制到新表；输入公式：abc(条件区域,目标区域,条件值)；

第四步：再用vlookup函数匹配到需要匹配汇总发票号码的EXCEL表格，最后保留复制粘贴成文本格式。