Excel从含逗号分隔日期的单元格提取最早日期的实现方案

你之前用的MID+REPT截取方案存在天然缺陷：当单元格内日期条目较多时，重复生成的长空格字符串会超出Excel公式的字符串处理阈值，导致文本截取错位，DATEVALUE无法解析出有效日期，最终被IFERROR返回0值，MIN计算结果自然为0。另外DATEVALUE本身依赖系统区域设置匹配日期格式，dd.mm.yyyy格式如果和系统默认格式不符，也存在解析失败的可能。

方案一：高版本Excel原生公式（Excel 365/2021及以上，无需启用宏） #

直接用文本拆分函数实现，不存在长度溢出问题，输入后直接回车即可：

=MIN(--TEXTSPLIT(A1,", "),"dd.mm.yyyy")

公式逻辑：先按, （逗号+空格）拆分单元格内所有日期文本，再强制按dd.mm.yyyy格式将文本转为日期序列号，最后取最小值得到最早日期，将结果单元格设置为日期格式即可正常显示。

如果是Excel 2019版本，没有TEXTSPLIT函数，可以用FILTERXML实现稳定拆分，比MID+REPT方案容错性高很多：

=MIN(--TEXT(FILTERXML("<t><s>"&SUBSTITUTE(A1,", ","</s><s>")&"</s></t>","//s"),"dd.mm.yyyy"))

注意：2019及更早版本输入完上述公式后，需要按Ctrl+Shift+Enter三键作为数组公式确认。

方案二：全版本通用VBA自定义函数 #

如果需要兼容所有Excel版本，或者单元格内日期条目极多，用自定义函数稳定性最高：

1. 按Alt+F11快捷键打开VBA编辑器
2. 在左侧工程面板右键点击当前工作簿名称，依次选择【插入】-【模块】
3. 将下述代码粘贴到弹出的模块代码窗口中：

Function GetEarliestDate(targetRng As Range) As Date
    Dim dateList As Variant, i As Long
    Dim minD As Date, tempD As Date
    dateList = Split(targetRng.Value, ", ")
    minD = DateSerial(9999, 12, 31)
    For i = LBound(dateList) To UBound(dateList)
        ' 按dd.mm.yyyy结构直接解析日期，不受系统区域设置影响
        tempD = DateSerial( _
            CInt(Split(dateList(i), ".")(2)), _
            CInt(Split(dateList(i), ".")(1)), _
            CInt(Split(dateList(i), ".")(0)) _
        )
        If tempD < minD Then minD = tempD
    Next
    GetEarliestDate = minD
End Function

4. 回到Excel工作表界面，直接在目标单元格输入下述公式即可调用：

=GetEarliestDate(A1)

这个函数完全绕开了公式的长文本截取限制，也不依赖系统日期格式设置，哪怕单元格内有上千条日期值也能稳定计算，不会出现返回0的问题。

内容的提问来源于stack exchange，提问作者Макс Рябченко