シートの初期化を整理します。時間軸は全路線共通ですが、縦の罫線を引く範囲が路線に依存するので、路線の方に移して、残りの列幅設定はシート初期化の方に入れます。 Sub シート初期化(dataSheet As Worksheet) Sheets.Add After:=dataSheet Cells.Select …