Excel VBA转换MMM dd, yyyy, h:mm am格式报错求解决

我明白你的问题了——你手里的日期格式是MMM dd, yyyy, h:mm am（年份后面多了个逗号），而之前参考的方案是针对没有这个逗号的格式，导致VBA的日期解析函数认不出这个非标准字符串，抛出了运行时错误13（类型不匹配）。

错误原因 #

VBA的CDate函数只能识别符合系统区域设置的标准日期格式，你的字符串里年份后多了一个逗号，属于非标准格式，所以函数无法将其转换为日期类型，直接报错。

解决方案：先清理字符串，再转换 #

核心思路是先移除年份后面的那个多余逗号，把字符串变成VBA能识别的格式，再进行转换。这里给你两种实用的代码方案：

方案1：自定义单元格函数（适合单个/少量单元格转换）

把下面的代码复制到Excel的VBA模块里（按Alt+F11打开编辑器，插入模块后粘贴）：

Function ConvertCustomDate(dateStr As String) As Date
    ' 精准移除年份后的逗号：找到第2个出现的", "替换为空格
    Dim cleanedDateStr As String
    cleanedDateStr = Replace(dateStr, ", ", " ", 2, 1)
    
    ' 转换为日期，加错误处理防止异常
    On Error Resume Next
    ConvertCustomDate = CDate(cleanedDateStr)
    On Error GoTo 0
End Function

使用方法：在Excel单元格里输入=ConvertCustomDate(A1)（A1是你的日期字符串所在单元格），就能得到转换后的日期。

方案2：批量转换子程序（适合大量单元格）

如果你需要批量处理整列或整区域的日期，用这个子程序更高效：

Sub BatchFixDates()
    Dim targetRange As Range
    Dim cell As Range
    
    ' 让你选择要处理的单元格区域
    Set targetRange = Application.InputBox("请选择需要转换的日期单元格区域", Type:=8)
    
    For Each cell In targetRange
        If cell.Value <> "" Then
            Dim cleanedStr As String
            ' 移除年份后的多余逗号
            cleanedStr = Replace(cell.Value, ", ", " ", 2, 1)
            
            ' 转换并设置显示格式
            On Error Resume Next
            cell.Value = CDate(cleanedStr)
            cell.NumberFormat = "mm/dd/yyyy h:mm AM/PM" ' 可以改成你想要的显示格式
            On Error GoTo 0
        End If
    Next cell
End Sub

使用方法：按Alt+F11打开VBA编辑器，插入模块粘贴代码，回到Excel按Alt+F8选择BatchFixDates运行，按照提示选择区域即可。

关键修改点说明 #

Replace(dateStr, ", ", " ", 2, 1)这行是核心：

• 第3个参数2表示从第2个", "开始替换（第一个", "在日期和年份之间，第二个在年份和时间之间）
• 第4个参数1表示只替换1次，这样就精准去掉了年份后面的那个逗号，把你的非标准格式转换成VBA能识别的MMM dd, yyyy h:mm am格式。

注意事项 #

确保你的Excel系统区域设置支持英文月份缩写（比如区域是英语国家），如果是中文环境，可能需要额外处理月份缩写的转换，但从你的问题格式来看，应该是英文环境下的场景，这个方案可以直接用。

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