VBA中提取YYYY-DD-MM格式日期最大值（不更改区域格式）

问题原因 #

常规MAX函数失效是因为目标区域的日期是文本格式的YYYY-DD-MM（非Excel默认的日期序列值），Excel/VBA无法直接识别为日期进行数值比较。

解决方案 #

方法1：遍历单元格逐行转换计算

兼容性强，可灵活处理格式校验和空单元格：

Sub GetMaxDate()
    Dim targetRange As Range
    Dim cell As Range
    Dim maxDate As Date
    Dim currentDate As Date
    
    ' 替换为你的目标单元格区域
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("A2:A7")
    
    ' 初始化最大日期为极小值，确保第一个有效日期能覆盖它
    maxDate = DateSerial(1900, 1, 1)
    
    For Each cell In targetRange
        ' 跳过空单元格
        If cell.Value <> "" Then
            ' 拆分文本日期的年、月、日（适配YYYY-DD-MM格式）
            Dim yearPart As Integer, monthPart As Integer, dayPart As Integer
            yearPart = Left(cell.Value, 4)
            dayPart = Mid(cell.Value, 6, 2)
            monthPart = Right(cell.Value, 2)
            
            ' 校验转换有效性，避免格式错误导致报错
            If IsDate(DateSerial(yearPart, monthPart, dayPart)) Then
                currentDate = DateSerial(yearPart, monthPart, dayPart)
                ' 更新最大日期
                If currentDate > maxDate Then
                    maxDate = currentDate
                End If
            End If
        End If
    Next cell
    
    ' 输出结果到指定单元格（保持YYYY-DD-MM格式）
    With ThisWorkbook.Sheets("Sheet1").Range("B1")
        .NumberFormat = "YYYY-DD-MM"
        .Value = maxDate
    End With
    
    ' 同时在立即窗口打印结果
    Debug.Print Format(maxDate, "YYYY-DD-MM")
End Sub

方法2：利用Evaluate执行数组公式逻辑

代码更简洁，通过工作表函数批量转换并计算最大值：

Sub GetMaxDateWithEvaluate()
    Dim targetRange As Range
    Dim maxDate As Date
    
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("A2:A7")
    
    ' 通过Evaluate执行数组公式，自动跳过空单元格并转换日期
    maxDate = Evaluate("MAX(IF(" & targetRange.Address & "<>"""",DATE(LEFT(" & targetRange.Address & ",4),RIGHT(" & targetRange.Address & ",2),MID(" & targetRange.Address & ",6,2)),""""))")
    
    ' 输出并设置格式
    With ThisWorkbook.Sheets("Sheet1").Range("B1")
        .NumberFormat = "YYYY-DD-MM"
        .Value = maxDate
    End With
    
    Debug.Print Format(maxDate, "YYYY-DD-MM")
End Sub

注意事项 #

• 确保目标区域的文本严格遵循YYYY-DD-MM格式，若存在格式不规范的单元格，建议保留方法1中的IsDate校验逻辑。
• 两种方法均不会修改原区域的格式，仅对提取的最大值设置指定格式。

内容的提问来源于stack exchange，提问作者Reyk