excel怎么提时间

如何在Excel中提取时间

在日常工作中，我们经常需要从文本或日期数据中提取特定的时间部分，从一个包含工作日程的表格中提取出具体的开始时间和结束时间,本文将详细介绍如何使用Excel中的函数和技巧来实现这一目标。

使用`TEXT`函数提取时间

直接提取

假设你有一个单元格A1包含了“2023-10-05 14:30:00”,你想从中提取时间部分。

步骤：

在另一个单元格（例如B1）中输入以下公式：
```
=TEXT(A1, "hh:mm")
```
这个公式会将日期格式转换为小时和分钟的形式。
按Enter键后，B1单元格将显示“14:30”。

使用`TIMEVALUE`函数

这个方法可以处理更复杂的日期格式,如混合数字和文字格式。

步骤：

在C1单元格输入以下公式：

=TIMEVALUE(MID(A1, FIND(" ", A1)+1, LEN(A1)-FIND(" ", A1)))

按Enter键后，C1单元格将显示“14”（对应于“14:00”的小时数），而D1单元格将显示“30”（对应分钟数）。

使用VBA宏

如果你有大量的单元格需要处理，或者需要更复杂的功能,你可以考虑编写一个简单的VBA宏。

示例代码：

Sub ExtractTime()
    Dim cell As Range
    For Each cell In Selection
        If IsDate(cell.Value) Then
            Dim startHour As Integer
            Dim endHour As Integer
            ' 分析第一个时间点
            Dim startPos As Long
            startPos = INSTR(1, cell.Value, ":")
            If startPos > 0 Then
                startHour = CLng(Mid(cell.Value, startPos + 1))
            End If
            ' 分析第二个时间点
            Dim endPos As Long
            endPos = INSTR(startPos + 1, cell.Value, ":")
            If endPos > 0 Then
                endHour = CLng(Mid(cell.Value, endPos + 1))
            End If
            cell.Offset(0, -1).Value = Format(DateSerial(Year(cell.Value), Month(cell.Value), Day(cell.Value)) + startHour / 24, "h:mm AM/PM")
            cell.Offset(0, 1).Value = Format(DateSerial(Year(cell.Value), Month(cell.Value), Day(cell.Value)) + (endHour / 24) * 60 + (startHour % 24) / 60, "h:mm AM/PM")
        End If
    Next cell
End Sub