Excel VBA中日期格式转换：实现DD-MM-YY转DD-MM-YYYY的可重复宏

绝对没问题！我给你整一个能反复运行的Excel宏，它会自动扫描指定列的日期，把所有DD-MM-YY格式的日期转换成完整的DD-MM-YYYY格式，完全不用手动挨个处理。

宏代码实现 #

直接把这段代码复制到Excel的VBA编辑器里就行（按Alt+F11打开编辑器，插入模块后粘贴）：

Sub ConvertDDMMYYtoDDMMYYYY()
    Dim ws As Worksheet
    Dim targetRange As Range
    Dim cell As Range
    Dim convertedDate As Date
    
    ' 可修改：指定要处理的工作表，比如改成ThisWorkbook.Worksheets("销售数据")
    Set ws = ThisWorkbook.ActiveSheet
    
    ' 可修改：指定要检查的列，这里是A列，改成Columns("C:C")就能处理C列
    Set targetRange = ws.Columns("A:A").SpecialCells(xlCellTypeConstants, xlNumbers)
    
    ' 关闭屏幕刷新，让宏跑更快
    Application.ScreenUpdating = False
    
    ' 跳过无法转换的单元格，避免报错
    On Error Resume Next
    For Each cell In targetRange
        ' 检查单元格是否是DD-MM-YY格式（大小写都兼容）
        If cell.NumberFormat = "DD-MM-YY" Or cell.NumberFormat = "dd-mm-yy" Then
            ' 把短日期转换为完整日期
            convertedDate = DateSerial( _
                Year(DateValue(Format(cell.Value, "DD-MM-YYYY"))), _
                Month(DateValue(Format(cell.Value, "DD-MM-YYYY"))), _
                Day(DateValue(Format(cell.Value, "DD-MM-YYYY"))) _
            )
            ' 更新单元格值和显示格式
            cell.Value = convertedDate
            cell.NumberFormat = "DD-MM-YYYY"
        End If
    Next cell
    On Error GoTo 0
    
    ' 恢复屏幕刷新
    Application.ScreenUpdating = True
    
    MsgBox "日期转换完成啦！", vbInformation
End Sub

关键调整说明 #

• 指定工作表：如果不想处理当前激活的工作表，把Set ws = ThisWorkbook.ActiveSheet改成Set ws = ThisWorkbook.Worksheets("你的工作表名称")，比如"客户列表"
• 指定目标列：把ws.Columns("A:A")改成你需要处理的列，比如ws.Columns("B:B")；如果要扫描整个工作表的已用区域，换成ws.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers)
• 格式兼容：代码已经兼容大小写的格式字符串（比如dd-mm-yy和DD-MM-YY），不用担心格式大小写的问题

如何重复快速执行 #

• 直接运行：按Alt+F8调出宏窗口，选择ConvertDDMMYYtoDDMMYYYY点击执行就行
• 一键运行：给宏加个快速访问工具栏按钮
  1. 右键点击Excel顶部的快速访问工具栏，选「自定义快速访问工具栏」
  2. 在「从下列位置选择命令」里选「宏」，找到你的宏添加进去，以后点这个按钮就能一键运行

小提醒 #

• 运行前建议先备份数据，避免意外情况
• 如果你的系统默认日期格式不是DD-MM-YY（比如是MM-DD-YY），可能需要调整代码里的格式字符串，确保转换逻辑正确

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