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形式存儲的數值。運行此宏之前,先選中需要轉換的所有單元格,執行宏之后所有符合條件的數字都會變成對應的日期。