日期格式转化VBA

nnsea

Sub ConvertDatesToStandardFormat()
    Dim LastRow As Long
    Dim i As Long
    Dim ws As Worksheet
      
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 更改为您的工作表名称
      
    ' 查找A列中的最后一行
    With ws
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
      
    ' 遍历A列中的每个单元格并转换日期格式
    For i = 1 To LastRow
        If IsDate(ws.Cells(i, 1).Value) Then
            ' 转换日期格式
            ws.Cells(i, 1).Value = Format(ws.Cells(i, 1).Value, "yyyy-m-d")
            ' 可选：设置单元格的数字格式为文本，以防止Excel将其重新解释为日期
            ws.Cells(i, 1).NumberFormat = "@"
        End If
    Next i
      
    MsgBox "日期格式转换完成。"
End Sub