求助：自定义YYYYMMDD HH:MM:SS格式失效，需修改VBA代码实现格式化

原代码的问题在于直接赋值拼接的文本字符串，Excel将其识别为文本类型，自定义数字格式对文本内容无效，因此格式无法生效。以下是修改后的代码，直接通过VBA实现日期时间值的转换与格式设置：

For i = startRow To lastRow
    Dim dateStr As String
    Dim timeStr As String
    Dim fullDateTime As Date
    
    Select Case Range("O" & i).Value
        Case "A", "C", "D", "E", "L", "AI", "CI", "DI", "EI", "LI", "AP", "CP", "DP", "EP", "LP"
            dateStr = "1900-01-01"
            timeStr = Range("L" & i).Value
            fullDateTime = CDate(dateStr & " " & timeStr)
            With Range("N" & i)
                .Value = fullDateTime
                .NumberFormat = "YYYYMMDD HH:MM:SS"
            End With
        Case "B", "BI", "BP", "N", "NI", "NP"
            dateStr = "1900-01-02"
            timeStr = Range("L" & i).Value
            fullDateTime = CDate(dateStr & " " & timeStr)
            With Range("N" & i)
                .Value = fullDateTime
                .NumberFormat = "YYYYMMDD HH:MM:SS"
            End With
        Case Else
            Range("N" & i).Value = ""
            Range("N" & i).NumberFormat = "General"
    End Select
Next i

关键修改说明： #

• 转换为日期时间值：使用CDate()函数将日期与时间的拼接字符串转换为Excel可识别的日期时间类型，而非纯文本。
• 直接设置单元格格式：通过NumberFormat属性强制指定YYYYMMDD HH:MM:SS格式，无需依赖预先设置的自定义格式。
• 兼容性优化：采用1900-01-01这种标准日期格式作为转换基础，避免因系统区域设置差异导致的转换错误。
• 清空处理：当匹配Case Else时，除了清空单元格值，还可恢复默认格式，避免残留格式影响后续操作。

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