Sub 終了日を調査取得する() 終了日 = WorksheetFunction.Max(Range("A2:A4")) 終了日_日付処理 = Format(終了日, "yyyy/mm/dd") MsgBox 終了日_日付処理 End Sub