ループ処理について

ExcelのD列の文字を空白の行になるまで、ループして処理を行いたいです。
『str』という変数に、String型で『あああ いいい ううう』2つ目の空白以降を削除という処理を代入させてあります。『str』に+1して1行ずつ繰り返してループさせたいのですが『str』がString型なので+1する処理が出来ません。
D列に『あああ いいい ううう』が10行くらい記入されています。
それを『あああ いいい』にして各行にループさせたいです。

D列が空白になるまで、各行『い』以降の『う』を削除したいです。