发票号码|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.Countb.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
【发票号码|EXCEL如何匹配汇总字段】
发票号码|EXCEL如何匹配汇总字段
文章图片
文章图片
第三步:返回EXCLE表格 , 将发票号和对应的唯一值(房间号、代码或是其他)复制到新表;输入公式:abc(条件区域,目标区域,条件值);

发票号码|EXCEL如何匹配汇总字段
文章图片
文章图片
第四步:再用vlookup函数匹配到需要匹配汇总发票号码的EXCEL表格 , 最后保留复制粘贴成文本格式 。