Sub ConvertToDates() For Each cell In Selection If IsNumeric(cell.Value) Then cell.Value = DateSerial(Left(cell.Value, 4), Mid(cell.Value, 5, 2), Right(cell.Value, 2)) End If Next End Sub。這段代碼適用于以YYYYMMDD形式存儲的數(shù)值。運行此宏之前,先選中需要轉換的所有單元格,執(zhí)行宏之后所有符合條件的數(shù)字都會變成對應的日期。