Excel VBA日期时间格式转换：从20250831 0400转为8/31/2025 4:00

问题分析 #

你的VBA代码仅处理了日期部分，未提取并转换时间，同时存在变量名拼写错误（formattedDateTemps应为formattedDate），导致时间部分缺失。

修正后的VBA代码 #

Sub ConvertDateTimeFormat()
    Dim originalDate As String
    Dim formattedDateTime As Date
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取A列最后一行数据的行号
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 循环处理每一行数据
    For i = 2 To lastRow
        originalDate = Cells(i, "A").Value
        
        ' 合并日期与时间部分，生成完整的日期时间值
        formattedDateTime = DateSerial(Left(originalDate, 4), Mid(originalDate, 5, 2), Mid(originalDate, 7, 2)) _
                          + TimeSerial(Mid(originalDate, 10, 2), Mid(originalDate, 12, 2), 0)
        
        ' 设置单元格值并应用目标显示格式
        Cells(i, "A").Value = formattedDateTime
        Cells(i, "A").NumberFormat = "m/d/yyyy h:mm"
    Next i
End Sub

代码说明 #

• 时间提取与转换：通过Mid(originalDate, 10, 2)提取小时数、Mid(originalDate, 12, 2)提取分钟数，再用TimeSerial转换为时间值，与日期部分相加得到完整的日期时间数据。
• 批量处理逻辑：循环遍历所有数据行，比AutoFill更稳定，避免格式填充异常。
• 格式设置：直接指定单元格的NumberFormat为m/d/yyyy h:mm，确保显示效果完全符合需求。

替代方案（无需VBA） #

如果不想使用VBA，可直接用Excel公式实现：
在B2单元格输入以下公式，下拉填充至数据末尾：

=DATE(LEFT(A2,4),MID(A2,5,2),MID(A2,7,2))+TIME(MID(A2,10,2),MID(A2,12,2),0)

之后将B列单元格格式设置为m/d/yyyy h:mm即可。

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