似たような質問を過去にもしていますが、VBA初心者なので、教えていただけたらと思います。 図のように、文章が4つあり、それを統合して一つのセルに

画像

Visual Basic | Excel22閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

ThanksImg質問者からのお礼コメント

どちらの回答も参考になりました。早速回答してくださった方をベストアンサーにしたいと思います。ありがとうございました。

お礼日時:7/22 21:36

その他の回答(1件)

0

下の図のように表示される方法でどうでしょうか? それで良ければ、下記の構文で試してみて下さい。 Sub test1() Dim LRow As Long, i As Long, Lf As Variant, Dt As String With ActiveSheet.Range("A:D") LRow = .Find("*", , xlValues, , xlByRows, xlPrevious).Row End With Lf = vbLf For i = 2 To LRow If Range("A" & i) <> "" Then Dt = Dt & Range("A" & i) & Lf & Lf If Range("B" & i) <> "" Then Dt = Dt & Range("B1") & Lf & Range("B" & i) & Lf & Lf If Range("C" & i) <> "" Then Dt = Dt & Range("C1") & Lf & Range("C" & i) & Lf & Lf If Range("D" & i) <> "" Then Dt = Dt & Range("D1") & Lf & Range("D" & i) Range("E" & i) = Dt Dt = "" Next i End Sub

画像