例:以下是一個Excel VBA巨集,可將儲存在工作表中的日期字串“20220101”轉換為日期格式“2022/01/01”
Sub ConvertDateFormat() Dim cell As Range For Each cell In Selection ' 遍歷所選範圍中的每個儲存格 If IsNumeric(cell.Value) And Len(cell.Value) = 8 Then ' 檢查是否為8位數字 cell.Value = Format(DateSerial(Left(cell.Value, 4), Mid(cell.Value, 5, 2), Right(cell.Value, 2)), "yyyy/mm/dd") ' 轉換日期格式 End If Next cell End Sub
如需使用此巨集,請按下“Alt + F11”打開VBA編輯器,然後在需要轉換日期格式的工作表中選擇您想要轉換格式的日期範圍,接著執行此巨集即可。注意,這個巨集只會處理所選範圍中的8位數字日期,其他格式的日期不會被處理。