Excel应用--提取回款时间

有网友问到，如何找出最后回款日期。基础表如下：

1482742988139250.jpg

张三1月1日的货款248元，5月7日回了120元，11月25日回了800，那么5月7日没回完，到11月25日才将1月1日的248货款的128元回完，那么由此确定，第一笔销售的回款最后日期为11月25日 作者：源理-office中国 Excel提取数据结果

1482742990822595.gif

Excel提取数据公式法： {=INDEX($F$2:$F$7,MATCH(1,(SUMIF(INDIRECT("$G$2:G" & ROW($2:$7)),$G$2:$G$7,INDIRECT("$H$2:H" & ROW($2:$7)))>C2)*($G$2:$G$7=B2),0))} Excel提取数据代码法： Function test(name As String, d As Date, money As Double, DateColumn As Range) test = Application.WorksheetFunction.Max(DateColumn) + 1 Dim cel As Range Dim totalMoney As Double For Each cel In DateColumn If name = cel.Offset(0, 1) And d =" & CDbl(d), DateColumn, "= money Then If cel < test Then test = cel End If End If End If Next If test = Application.WorksheetFunction.Max(DateColumn) + 1 Then test = "没收回"End Function