如何使用VBA拆分含复杂内容单元格中的日期与时间？

方法1：VBA正则表达式 #

如果单元格内容是日期与时间混杂的字符串（比如2024-05-20 14:30、2024/05/20下午15:45这类格式），正则表达式能精准匹配时间模式：

• 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Function ExtractTime(cell As Range) As String
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    ' 匹配12/24小时制时间，含上午/下午格式
    regEx.Pattern = "(\d{1,2}:\d{2}(:\d{2})?|上午\d{1,2}:\d{2}|下午\d{1,2}:\d{2})"
    regEx.Global = False
    If regEx.Test(cell.Value) Then
        ExtractTime = regEx.Execute(cell.Value)(0).Value
    Else
        ExtractTime = ""
    End If
End Function

• 返回工作表，在空白单元格输入=ExtractTime(A1)（替换A1为目标单元格），下拉填充即可提取时间。

方法2：公式组合（无需VBA） #

根据单元格内容类型选择对应公式：

• 若单元格是日期时间数值（Excel存储的日期时间是数值，整数部分为日期，小数部分为时间）：
  输入=MOD(A1,1)，然后将单元格格式设置为「时间」类型。
• 若单元格是字符串且时间在末尾：
  用=RIGHT(A1,LEN(A1)-FIND(" ",A1))，把公式中的" "替换成实际分隔日期和时间的字符（比如-、/）。
• 若单元格是字符串且时间位置不固定：
  输入数组公式=TEXTJOIN("",TRUE,IF(ISNUMBER(SEARCH({":","上午","下午"},MID(A1,ROW($1:$100),1))),MID(A1,ROW($1:$100),1),""))，Excel 2019及以下版本按Ctrl+Shift+Enter确认，Excel 365直接回车即可。

方法3：Power Query批量处理 #

适合大量数据的批量提取：

1. 选中目标数据列，点击「数据」选项卡→「从表格/区域」，导入Power Query编辑器。
2. 添加自定义列，输入公式：=Text.Select([目标列名], {"0".."9", ":", "上", "下", "午"})，筛选出时间相关字符（替换[目标列名]为实际列名）。
3. 也可使用拆分列功能：如果有固定分隔符，选择「按分隔符」拆分后保留时间列；如果无固定分隔符，选择「按字符类型拆分」，按数字/非数字拆分后整理时间部分。
4. 点击「关闭并上载」，将处理后的数据导入Excel。

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