複数の列の値を結合して別の列へ返す

B列、C列、D列の各2行目以降の値を間に半角スペースをつけて結合させ、G列に返したいです。
データ数は決まっていません。
これを関数ではなくVBAで行いたいです。

お詳しい方宜しくお願いいたします。

No.2 ベストアンサー 回答者： kamejiro 回答日時： 2022/08/06 17:42

Sub pg()

i = 2
Do Until Range("B" & i) = ""
Range("G" & i) = Range("B" & i) & " " & Range("C" & i) & " " & Range("D" & i)
i = i + 1
Loop

End Sub
B列が空白になるまで繰り返す。

この回答へのお礼

ありがとうございます！解決できました❗

お礼日時：2022/08/09 12:39

No.1 回答者： fujillin 回答日時： 2022/08/06 16:40

こんにちは

2行目を例にするなら、

Range("G2").Value = WorksheetFunction.TextJoin(" ", 0, Range("B2:D2"))

で、できますので、必要な行数分だけループすれば良いでしょう。

この回答へのお礼

ありがとうございます、きちんと動作しました！

お礼日時：2022/08/09 12:40