今日、Excel VBA でマクロを組もうとして時間がかかったところ。 Sub Test() Rows(3).Insert Rows(2).Copy (Rows(3)) Range("D2").AutoFill Destination:=Range("D2:D3") MsgBox "日付と時間の入力をしてください。" End Sub 3行目に行を追加して、2行目から…