エクセルで行を一つにする方法を教えてください

画像を参照していただければわかりやすいかもしれません。

画像の上のように一つの1～5行のランダムの行数に分かれています。
空白セルを挟んで文章の終わりを表しています。

これを画像下のように一つの行セルにしたいです。
※2行のセルに渡って、セルを結合するわけではないです。

使うのはB列です。
できればVBAを組んでいただけたら最高です。

よろしくお願いします。

No.3 回答者： fujillin 回答日時： 2022/04/21 14:29

こんにちは

＞画像を参照していただければわかりやすいかもしれません。
画像を見てもよくわからなかったので、勝手に解釈しました。

＞使うのはB列です。
B列に元のデータがあるものと解釈しました。

Sub Q12910791()
Dim mRw, rw, rng, para

mRw = Cells(Rows.Count, 2).End(xlUp).Row
Set rng = Cells(mRw, 2).Offset(2)
para = ""

For rw = 1 To mRw
If Cells(rw, 2) <> "" Then
para = para & Cells(rw, 2).Text
Else
If para <> "" Then
rng.Value = para
para = ""
Set rng = rng.Offset(1)
End If
End If
Next rw
rng.Value = para
End Sub

あとは、お好きにどうぞ。

この回答へのお礼

すごい、あなたは天才です。
マジでありがとうございました。完璧でした。

お礼日時：2022/04/21 16:17

No.2 回答者： banzaiA 回答日時： 2022/04/21 14:16

回答ではありません。

文章は、文章医専用ソフトWordなどにしましょうよ！
Excelは表計算用のソフトですよね。

No.1 回答者： ASスローバラード 回答日時： 2022/04/21 14:15

まとめる対象とまとめた結果で列をわけて、

行数を保持する変数をそれぞれ用意して、うまいことやるとできます。