VBA, for my own personal notes. ' 最初の1行(ヘッダーなど)を読み飛ばす If Not TextStream.AtEndOfStream Then TextStream.ReadLine ' ← これで1行目を捨てる End If ' 2行目以降をループで処理 Do While Not TextStream.AtEndOfStream line = ...