当前正在使用函数,作为函数的一部分,我需要在VBA的列中找到最早的日期。花了一段时间寻找解决方案,但找不到很多。我找到了一条线,但是它实际上不起作用。病态的代码片段我有,但任何建议或解决方案将不胜感激!

Public Function SetSOWDates() As String

    Dim wsCRC As Worksheet
    Set wsCRC = Worksheets("CRC")

    Dim LastRowInCRC As Long

    LastRowInCRC = CRC.LastRowInCRC()

    LatestDate = Format(wsCRC.Max(Range("K8:K" & LastRowInCRC)), "dd/mm/yyyy")

    Debug.Print LatestDate

End Function

最佳答案

您想要的是Min,而不是最旧的日期,它是Max的成员,而不是WorksheetFunction

LatestDate = Format(Worksheetfunction.Min(wsCRC.Range("K8:K" & LastRowInCRC)), "dd/mm/yyyy")

10-08 13:13