VBA とびとびの列を結合させる

E列からI列に固定でなくデータが入っています。

VBAで各行ごとに、データが入っているとびとびのセルを
J列のように結合させ表示したいのですがうまく動きません。
構文は以下のようにしました。
どこが間違っているか教えてください。
※Ｇ列は使用しません。


For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 10) = WorksheetFunction.Concat(Range("H:I", "E:F"))
Next

どなたかお願いします。

No.1 回答者： bonaron 回答日時： 2023/10/18 11:50

> どこが間違っているか教えてください。

Range("H:I", "E:F")
の部分に行の情報がない。

> Cells(i, 10) = WorksheetFunction.Concat(Range("H:I", "E:F"))

４列程度なら
Cells(i, 10) = Cells(i, "H") & Cells(i, "I") & Cells(i, "E") & Cells(i, "F")

この回答へのお礼

動きました。ありがとうございます。

基礎的なことですよねすみません。お勉強になりました。

お礼日時：2023/10/18 12:53