Excel宏开发需求：将文本时长转换为时间戳格式

不用堆砌大量IF语句，用正则表达式提取各时间单位的数值是更高效的解决方案——不管文本里的单位顺序、组合形式如何，都能精准匹配计算。下面是完整的VBA实现：

自定义函数（可直接在单元格调用） #

Function ConvertToTimestamp(ByVal inputText As String) As String
    Dim regex As Object
    Dim matches As Object
    Dim match As Object
    Dim totalDays As Integer, hours As Integer, mins As Integer
    
    ' 初始化正则表达式对象
    Set regex = CreateObject("VBScript.RegExp")
    regex.Global = True
    ' 匹配数字+单位的模式，兼容单复数（如week/weeks、day/days）
    regex.Pattern = "(\d+)\s*(week|day|h|min)s?"
    
    ' 初始化时间变量
    totalDays = 0
    hours = 0
    mins = 0
    
    ' 获取所有匹配结果
    Set matches = regex.Execute(inputText)
    
    ' 遍历匹配项，累加对应时间值
    For Each match In matches
        Select Case LCase(match.SubMatches(1))
            Case "week"
                totalDays = totalDays + CInt(match.SubMatches(0)) * 7
            Case "day"
                totalDays = totalDays + CInt(match.SubMatches(0))
            Case "h"
                hours = hours + CInt(match.SubMatches(0))
            Case "min"
                mins = mins + CInt(match.SubMatches(0))
        End Select
    Next
    
    ' 格式化为DD:HH:MM:00的时间戳格式，不足两位自动补0
    ConvertToTimestamp = Format(totalDays, "00") & ":" & _
                         Format(hours, "00") & ":" & _
                         Format(mins, "00") & ":00"
End Function

使用步骤 #

1. 打开Excel，按下Alt + F11打开VBA编辑器
2. 右键工作簿→插入→模块，将上述代码粘贴到模块中
3. 返回Excel界面，在目标单元格输入=ConvertToTimestamp(A1)（A1为存放文本时长的单元格），即可得到转换后的时间戳

方案优势 #

• 适应性强：兼容任意单位顺序（如"5 min, 1 day"）、单位单复数形式，无需修改代码
• 扩展性好：后续若需支持秒、月等单位，只需在正则模式和Select Case中添加对应规则即可
• 代码简洁：避免了嵌套IF的冗余逻辑，维护和修改更便捷

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