「ブロック機能」のリニューアルについて

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

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

教えて!goo グレード

A 回答 (2件)

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列が空白になるまで繰り返す。
    • good
    • 0
この回答へのお礼

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

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

こんにちは



2行目を例にするなら、

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

で、できますので、必要な行数分だけループすれば良いでしょう。
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

教えて!goo グレード

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング