Excel VBA: 快速将时间文本转换为标准时间格式

在数据处理中，我们经常遇到时间数据存储为文本格式的问题，例如“3小时15分20秒”。这样的数据无法直接用于计算，而手动转换又非常繁琐。因此，我们可以使用 VBA 代码自动提取时间信息，并转换为标准的时间格式！

下面的 VBA 代码可以从包含“时、分、秒”的文本中提取时间，并转换为 Excel 可识别的 hh:mm:ss 格式。

Sub 将时间文本格式转换为时间格式()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim pattern As String
    Dim regex As Object
    Dim matches As Object
    Dim hours As Double
    Dim minutes As Double
    Dim seconds As Double
    
    ' 设置工作表和范围
    Set ws = ThisWorkbook.Sheets(1) ' 选择目标工作表
    Set rng = ws.Range("C2:C" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row) ' 选择时间文本所在列

    ' 创建正则表达式对象
    Set regex = CreateObject("VBScript.RegExp")
    pattern = "((\d+)时)?((\d+)分)?((\d+)秒)?"
    regex.pattern = pattern
    regex.Global = False

    ' 遍历单元格
    For Each cell In rng
        If Not IsEmpty(cell.Value) Then
            If regex.test(cell.Value) Then
                Set matches = regex.Execute(cell.Value)
                hours = 0
                minutes = 0
                seconds = 0
                
                ' 提取小时
                If Not IsNull(matches(0).SubMatches(1)) Then
                    hours = CDbl(matches(0).SubMatches(1))
                End If
                
                ' 提取分钟
                If Not IsNull(matches(0).SubMatches(3)) Then
                    minutes = CDbl(matches(0).SubMatches(3))
                End If
                
                ' 提取秒数
                If Not IsNull(matches(0).SubMatches(5)) Then
                    seconds = CDbl(matches(0).SubMatches(5))
                End If
                
                ' 转换为时间格式
                cell.Offset(0, 1).Value = TimeSerial(hours, minutes, seconds)
            End If
        End If
    Next cell
End Sub

1. 正则表达式匹配时间文本
2. (\d+)时 提取小时
3. (\d+)分 提取分钟
4. (\d+)秒 提取秒
5. 遍历 C 列数据，并提取时间
6. 逐个检查数据格式
7. 识别小时、分钟、秒并转换为标准时间
8. 最终输出时间格式
9. 结果将存储在 D 列，与原数据一一对应

动图演示：

Excel VBA 为数据处理提供了极大的便利，特别是对于大批量时间数据转换来说，能大幅减少人工操作，提高效率！如果你希望进一步优化代码，比如处理特殊时间格式，可以在留言区讨论，我们一起提升数据处理能力！