如何在Excel同一单元格输入时间区间自动转换为12小时制起止时间格式？

该需求可稳定实现，纯公式方案受Excel循环引用机制限制无法在单单元格完成，推荐使用工作表Change事件VBA方案，无需固定单元格引用，输入完成后自动在原单元格完成转换，零VBA基础也可直接部署使用。

• 打开需要实现该功能的Excel文件，按快捷键Alt+F11调出VBA编辑器
• 在编辑器左侧的工程资源管理器面板中，双击需要应用该功能的工作表名称，打开对应的代码编辑窗口
• 将下方完整代码粘贴到弹出的空白代码窗口中，可根据注释调整生效范围、时间识别规则

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim inputStr As String
    Dim timeParts As Variant
    Dim startHour As Integer, endHour As Integer
    
    ' 多选单元格时不触发转换
    If Target.CountLarge > 1 Then Exit Sub
    ' 若要限定生效范围（例如仅A列生效），取消下一行注释即可
    ' If Intersect(Target, Me.Columns("A")) Is Nothing Then Exit Sub
    
    On Error GoTo ErrHandle
    Application.EnableEvents = False
    inputStr = Trim(Target.Value)
    
    ' 匹配数字-数字格式的输入
    If inputStr Like "*#-#*" Then
        timeParts = Split(inputStr, "-")
        If UBound(timeParts) = 1 Then
            startHour = CInt(Trim(timeParts(0)))
            endHour = CInt(Trim(timeParts(1)))
            ' 校验小时数合法性（0-23区间）
            If startHour >= 0 And startHour <= 23 And endHour >= 0 And endHour <= 23 Then
                ' 时间识别规则二选一即可，默认不做12小时偏移，直接按输入数字转时间
                ' 规则1：自动将小于12的结束小时识别为下午（如输入5-9自动识别9为21点，输出09:00 PM），取消下一行注释即可
                ' endHour = endHour + IIf(endHour < 12, 12, 0)
                ' 规则2：仅当结束小时早于开始小时时才识别为下午（如输入9-5识别为9AM到5PM，输入5-9识别为5AM到9AM），取消下一行注释即可
                ' endHour = endHour + IIf(endHour < 12 And endHour < startHour, 12, 0)
                Target.Value = Format(TimeSerial(startHour, 0, 0), "hh:mm AM/PM") & " to " & Format(TimeSerial(endHour, 0, 0), "hh:mm AM/PM")
            End If
        End If
    End If

ErrHandle:
    ' 恢复事件触发，避免影响表格其他功能
    Application.EnableEvents = True
End Sub

• 粘贴完成后直接关闭VBA编辑器即可，将文件另存为*.xlsm（启用宏的工作簿）格式，后续打开文件时点击顶部安全提示栏的「启用内容」，功能即可正常生效。

• 输入内容符合数字-数字格式时才会触发转换，其余输入会保留原始内容，不会干扰正常表格操作
• 不需要引用任何其他单元格，输入完成后自动在当前单元格完成替换，完全匹配需求
• 可根据实际业务调整代码中的格式规则，例如修改为24小时制、调整生效单元格范围、修改时间拼接文案等，直接修改对应位置的参数即可

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