VBA DataSeriesメソッドで連続データ出力 月末日付連続出力 Sub test() ' 月末日付連続出力 With ActiveSheet Set myRange = .Range("A1:A12") .Range("A1").Value = "2025/01/31" myRange.DataSeries Type:=xlChronological, Date:=xlMonth myRange.NumberFormat = "[$-ja-JP]gge年mm月dd日(aaa)" End With End Sub 土日以外Weekday連続出力 Sub test2() ' 土日以外Weekday連続出力 With ActiveSheet Set myRange = .Range("B1:B25") .Range("B1").Value = "2025/01/01" myRange.DataSeries Type:=xlChronological, Date:=xlWeekday myRange.NumberFormat = "yyyy/mm/dd(aaa)" End With End Sub 実行結果 ― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る