質問: 似たような質問を過去にもしていますが、VBA初心者なので、教えていただけたらと思います。 図のように、文章が4つあり、それを統合して一つのセルに したいと考えています。文章は4つありますが、文章がない場合もあります。 文章のタイトルはタイトルAはなく、B,C,Dとありそれらは固定です。 例文は下のセルに同じように続きます。 文章の統合の自動化ができればと考えており、教えていただけたらと思います。 説明が分かりにくいと思いますが、 よろしくお願いします。
回答: 下の図のように表示される方法でどうでしょうか? それで良ければ、下記の構文で試してみて下さい。 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