VBA时间修正异常：误替换隐藏PM中的P字符问题咨询

问题根源 #

你的脚本直接对整列执行Range.Replace，会误操作两类单元格：

1. 已转为Excel标准时间数值的单元格（如13:00实际存储为0.541666...），VBA的替换操作会错误解析格式相关的字符，导致时间格式异常；
2. 文本型时间中的"PM"被误替换（单独替换"P"会破坏合法的时间文本结构）。

修正方案 #

只处理文本型或无法识别为时间的单元格，修正错误字符后转换为标准时间格式，彻底消除文本型时间的AM/PM问题：

Sub FixTimeInputs()
    Dim ws As Worksheet
    Dim cell As Range
    Dim lastRow As Long
    Dim correctedText As String
    
    Set ws = Worksheets("Hoofdbestand")
    lastRow = ws.Range("A1").End(xlDown).Row
    
    ' 遍历目标单元格，逐个处理
    For Each cell In ws.Range("D2:D" & lastRow)
        ' 仅处理文本型或非时间格式的单元格
        If cell.NumberFormat = "@" Or Not IsDate(cell.Value) Then
            correctedText = cell.Value
            
            ' 替换指定错误字符为冒号
            correctedText = Replace(correctedText, ";", ":")
            correctedText = Replace(correctedText, "'", ":")
            correctedText = Replace(correctedText, """", ":")
            correctedText = Replace(correctedText, ">", ":")
            correctedText = Replace(correctedText, ".", ":")
            correctedText = Replace(correctedText, "[", ":")
            correctedText = Replace(correctedText, "L", ":")
            
            ' 尝试转换为标准时间并设置24小时制格式
            If IsDate(correctedText) Then
                cell.Value = CDate(correctedText)
                cell.NumberFormat = "HH:mm"
            Else
                ' 无法转换时保留修正后的文本，方便排查
                cell.Value = correctedText
            End If
        End If
    Next cell
End Sub

关键说明 #

• 跳过已为时间数值的单元格，避免误改合法时间的存储格式；
• 移除单独替换"P"的语句，防止破坏文本型时间中的"PM"结构；
• 转换为标准时间后设置HH:mm格式，强制24小时制显示，彻底消除AM/PM的混淆问题；
• 无法转换为时间的内容会保留修正后的文本，便于后续处理异常数据。

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