Excelセル内の連続した改行以降の文字列を削除したい

Question

あああ
いいい

ううう
えええ

・・・というようにセル内に文字列が入っているときに、
連続した改行以降の「うううえええ」を削除して、

あああ
いいい

・・・とセル内に残るようにしたいです。

下記のように連続した改行が複数ある場合は、
最初の連続した改行以降をすべて削除したいです。

かかか
ききき

くくく

けけけ
こここ

↓↓↓

かかか
ききき

VBAもしくはExcelの関数で実現したいと考えております。

ご教示よろしくお願いします。

Answer 1

対象がA1の場合。

=MID(A1,1,SEARCH(CHAR(10)&CHAR(10),A1,1))

Comments

[poponta]

素早いご回答ありがとうございました。
助かりました。

ttyp03さんの回答により連続した改行の判定の仕方が分かりました。
回答をもとにVBAで動くように作ってみました。
Cells(i, j).Value = Mid(Cells(i, j).Value, 1, InStr(Cells(i, j).Value, Chr(10) & Chr(10)))