Sub 日付の表示形式を指定する()

    日付 = "2022/4/9 18:26:32"
    
    Range("A1") = Format(日付, "yyyy年mm月dd日")
    Range("A2") = Format(日付, "yyyy年m月d日")
    Range("A3") = Format(日付, "m月d日")
    Range("A4") = Format(日付, "yyyy/mm/dd")
    Range("A5") = Format(日付, "yyyy-mm-dd")
    Range("A6") = Format(日付, "m/d")
    Range("A7") = Format(日付, "yyyy年mm月dd日hh時mm分ss秒")
    Range("A8") = Format(日付, "yyyy年mm月dd日hh時mm分")
    Range("A9") = Format(日付, "yyyy/mm/dd hh:mm")

End Sub