sql_left_join快速匹配

Dim o As New cClassSqlHelperForTableDB
Sub test()
sql1 = "select 合同编号,sum(实收金额) as 实收金额 from [财务实收信息$] where 实收状态='已确认' group by 合同编号"
sql2 = "select * from [财务实收信息$] where 实收状态='已确认'"
sql = "select b.签约主体,b.区域,b.项目,b.行政机构,b.交易编号,a.合同编号,b.合同名称,b.客户名称,a.实收金额,
b.费用科目,b.发票编号,b.交易流水号,
b.收款方式,b.是否代收,b.账套编号,b.账套名称,b.银行名称,b.银行账户,b.备注,b.实收状态,b.审核通过时间,
b.退费金额,b.实收日期,b.减免原因,
b.所属机构,b.所属人 from (" & sql1 & ") as a left join (" & sql2 & ") as b on a.合同编号=b.合同编号 order by a.合同编号"
Call o.ExecteFilterOverRideThree(sql, 3, 1, 1, 1, "res")
End Sub

Sub 去重()
With Worksheets("res")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
For x = r To 2 Step -1
    If .Cells(x, "f").Value = .Cells(x - 1, "f").Value Then
        .Rows(x).Delete
    End If
Next
End With
End Sub