ひとつ問題に気が付きました。駅名が下寄せされていない。 下寄せは、Range(・・).VerticalAlignmentで設定できます。で、それを修正しようとしてもう一つ問題発見。 diag.Range(Cells(rw, 1), Cells(rw, 6 * 22 + 1)).Borders(xlEdgeBottom).LineStyle = xl…