例:以下是一個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位數字日期,其他格式的日期不會被處理。

arrow
arrow
    文章標籤
    巨集 excel
    全站熱搜
    創作者介紹
    創作者 bshadow 的頭像
    bshadow

    發卡布洛

    bshadow 發表在 痞客邦 留言(0) 人氣()