[已解决]请高手帮忙解决问题

mfx123

再次感谢两位老师了，代码已经符合要求了

grf1973

Sub 提取最近日期()
  Set d = CreateObject("scripting.dictionary")
  arr = Sheets("数据库").[a1].CurrentRegion
  For i = 2 To UBound(arr)
    If arr(i, 1) = "收款单" Then
        kh = arr(i, 5): rq = arr(i, 3)
        If rq > d(kh) Then d(kh) = rq
    End If
  Next
  With Worksheets("月余额表")
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    arr = .Range("a5:J" & r)
    For i = 1 To UBound(arr)
        arr(i, 10) = d(arr(i, 1))
    Next
    .Range("j5").Resize(UBound(arr), 1) = Application.Index(arr, 0, 10)
  End With
End Sub

grf1973

你效果图里的日期哪里来的？

mfx123

我的模拟数据太多，附加太大，没法上传，所以我删了一些数据以后，效果图里的日就改变了

mfx123

您的代码已经符合我要求了，谢谢老师了

dsfada

学习了！！！