少し間が空きました。上り下りの対応をしたいと思います。 データの見出しに、「下り【東横線】」と書いていました。「【」以降が同じならば、同一の路線とみなすことにします。下り上りでなくても、A線B線でも、内回り外回りでも気にしません。下り上りで駅名が同じのチェックは入れましょう。 データはこんな感じです。 これを、こんな図に変換します。 データを読むときに、同じ路線なら路線情報を作らないようにします。 Sub 路線情報作成(路線() As 路線情報, sht As Worksheet) rw = 1 idx = 0 Do While データ先頭(rw, sht) s = sht.Cells(rw,…