Excel VBA 質問スレ Part68at TECHExcel VBA 質問スレ Part68 - 暇つぶし2ch16:デフォルトの名無しさん 20/08/31 20:25:23.41 Zj98ZIJ+0.net>>13 For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row Cells(r, 2).Value = Replace(Replace(Format(CDate(Cells(r, 1)), "ggge年mm月dd日"), "年0", "年 "), "月0", "月 ") Next r 次ページ続きを表示1を表示最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch