Sub 日時の取得() '変数宣言Dim 本日 As DateDim 期限日 As DateDim 行番号 As Long '本日の日付を取得 本日 = Date '期限日は本日から14日後 期限日 = 本日 + 14 '対象は1列目の最終行まで For 行番号 = 2 To Cells(Rows.Count, 1).End(xlUp).Row '期限日 C…