Excel VBA 質問スレ Part68

[16 デフォルトの名無しさん (ﾜｯﾁｮｲ a5ce-xiBb) 2020/08/31(月) 20:25:23.41 ID:Zj98ZIJ+0]

>>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