如何从批注单元格提取日期/时间？求单元格内方法或VBA方案

好问题！既然你优先想在单元格内用公式解决（不用折腾VBA），我先给几个针对性的方案，再补个VBA脚本供你批量处理时用——毕竟宏确实能省不少重复操作的功夫。

方案1：Excel 365/2021及以上版本（支持正则函数） #

如果你的Excel版本支持REGEXEXTRACT，这是最直接的方法，专门用来匹配符合规则的文本片段。假设你的批注内容在A1单元格，直接用下面的公式：

=REGEXEXTRACT(A1,"\d{1,2}[\/-]\d{1,2}[\/-]\d{4}[ ]?\d{1,2}:\d{2}")

• 正则说明：匹配1-2位数字+分隔符（/或-）+1-2位数字+分隔符+4位数字+可选空格+1-2位数字+冒号+2位数字，覆盖了绝大多数常见的日期时间格式（比如10/25/2024 14:30或25-10-2024 14:30）。
• 如果你的日期和时间之间没有空格，或者有多个空格，把[ ]?改成[ ]*即可。

方案2：旧版Excel（无REGEX函数） #

如果用的是2019及更早的Excel，用FILTERXML+TEXTJOIN组合来筛选日期时间片段：

=TEXTJOIN(" ",TRUE,FILTERXML("<t><s>"&SUBSTITUTE(A1," ","</s><s>")&"</s></t>","//s[number(translate(.,'/','.'))*number(translate(.,':','.'))>0]"))

• 原理：把单元格内容按空格拆分成XML节点，然后筛选那些替换分隔符（/→.、:→.）后能转成数字的片段（因为Excel里的日期时间本质是数字），最后把这些片段拼接成完整的日期时间。

如果公式搞不定特殊格式，或者需要批量处理整列数据，写个自定义函数最省心。你可以直接在单元格里像用普通函数一样调用它：

步骤1：添加自定义函数 #

1. 按Alt+F11打开VBA编辑器
2. 右键点击左侧的工作簿名称 → 插入 → 模块
3. 粘贴下面的代码：

Function ExtractDateTime(cell As Range) As String
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    ' 这里的正则模式可以根据你的实际日期时间格式修改
    regex.Pattern = "\d{1,2}[\/-]\d{1,2}[\/-]\d{4}[ ]?\d{1,2}:\d{2}"
    regex.Global = True ' 设为True提取所有日期时间，设为False只提取第一个
    
    Dim matches As Object
    Set matches = regex.Execute(cell.Value)
    
    Dim result As String
    result = ""
    Dim match As Object
    For Each match In matches
        result = result & match.Value & " "
    Next match
    
    ' 去掉末尾多余的空格
    ExtractDateTime = Trim(result)
End Function

步骤2：使用自定义函数 #

回到Excel，在空白单元格输入=ExtractDateTime(A1)，按回车就能提取A1里的日期时间了。如果需要处理整列，下拉填充即可。

小提示 #

如果你的日期时间格式比较特殊（比如带英文月份，如Oct 25 2024 14:30），只需要修改VBA里的regex.Pattern，比如改成：

regex.Pattern = "\w{3} \d{1,2},? \d{4}[ ]?\d{1,2}:\d{2}"

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