多个工作表匹配查找，匹配求和怎么做，老师们

firnline

老师们，第一个图是1月份的，1-6月是一样的模式，我想根据销售单号匹配出团队CODE，出境日期，护照号等还有一个汇总金额，我的公式不出数据，应该怎么做？

3190496160

Sub 汇总()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Long, r As Long
Dim br()
Dim d As Object
ReDim br(1 To 50000, 1 To 7)
Set d = CreateObject("scripting.dictionary")
For Each sh In Sheets
    If InStr(sh.Name, "月") > 0 Then
        r = sh.Cells(Rows.Count, 1).End(xlUp).Row
        ar = sh.Range("a1:i" & r)
        For i = 2 To UBound(ar)
            If Trim(ar(i, 1)) <> "" Then
                t = d(Trim(ar(i, 1)))
                If t = "" Then
                    k = k + 1
                    d(Trim(ar(i, 1))) = k
                    t = k
                    br(k, 1) = ar(i, 1)
                    br(k, 2) = ar(i, 2)
                    br(k, 3) = ar(i, 6)
                    br(k, 4) = ar(i, 3)
                    br(k, 5) = ar(i, 4)
                    br(k, 6) = ar(i, 7)
                End If
                br(t, 7) = br(t, 7) + ar(i, 9)
            End If
        Next i
    End If
Next sh
With Sheets("汇总")
    .[a1].CurrentRegion.Offset(1) = Empty
    .[a2].Resize(k, UBound(br, 2)) = br
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

3190496160

结算.rar (97.38 KB, 下载次数: 8)

2023-3-17 09:02 上传

点击文件名下载附件

3190496160

vba实现的，主要是不明白同一个单号有两个日期该如何处理，所以，代码仅供参考

firnline

3190496160 发表于 2023-3-17 09:02
vba实现的，主要是不明白同一个单号有两个日期该如何处理，所以，代码仅供参考

大佬老师，我不会VBA,感谢您的帮助，我用了公式稀里糊涂的出来数据了，购买日期是无所谓，以出境日期为准，一个单号一个出境日期

firnline

3190496160 发表于 2023-3-17 09:02

刚做的只能出来1月的数据，后面的数据都找不出来

3190496160

firnline 发表于 2023-3-17 13:36
大佬老师，我不会VBA,感谢您的帮助，我用了公式稀里糊涂的出来数据了，购买日期是无所谓，以出境日期为准 ...

呵呵呵，点击一下按钮总该会吧

云南陶肖民

=VLOOKUP($A3,INDIRECT(MID($A3,6,1)&"月!A:I"),MATCH(汇总!B$1,'1月'!$A$1:$I$1,0),FALSE)

firnline

3190496160 发表于 2023-3-17 14:21
呵呵呵，点击一下按钮总该会吧

无法运行“结算xlsm!汇总”宏。可能是因为该宏在此工作簿中不可用，或者所有的宏都被禁用。提示我这个，想打开宏权限，还得输入企业名称，我没有。。