Excel VBA 質問スレ Part68

[313 デフォルトの名無しさん (ﾜｯﾁｮｲ b7ce-W2Jb) 2020/09/18(金) 22:40:09.47 ID:1dkG1MHP0]

>>306
Sub Macro1()
　　Range("C2:C435").Copy
　　Range("D2:E435").Select
　　ActiveSheet.Paste
　　Range("C2:C435").NumberFormatLocal = "yyyy"
　　Range("D2:D435").NumberFormatLocal = "m"
　　Range("E2:E435").NumberFormatLocal = "d"
End Sub