文字列の結合を空白行まで実行

A列とB列の文字列を間に＆を付けてC列に転記します。

Sub ketsugo()

For I = 1 To 100
Cells(I, "C") = Cells(I, "A") & "&" & Cells(I, "B")
Next I

End Sub

このコードを使用していますが、データが50行分だと残り５０行分は「&」のみになります。
毎回データ数は違います。
空白行になったら処理が終わるようにしたいのです。
ＶＢＡで何とかなりませんでしょうか？

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

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2022/02/14 21:10

以下のようにしてください。

Sub ketsugo()

For i = 1 To 100
If Cells(i, "A").Value = "" Then Exit For
Cells(i, "C") = Cells(i, "A") & "&" & Cells(i, "B")
Next i

End Sub

この回答へのお礼

ありがとうございます！おかげさまで解決できました！

お礼日時：2022/02/17 19:00

No.2 回答者： mygoonickname 回答日時： 2022/02/14 21:32

こんばんは。

最初に、A列の最後の行を取得して、そこまで処理するが良いかと。
セルに、Valueを付けた方が良いかと思います。

Sub ketsugo()
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Cells(i, "C").Value = Cells(i, "A").Value & "&" & Cells(i, "B").Value
Next i
End Sub

この回答へのお礼

ありがとうございます！勉強になります。

お礼日時：2022/02/17 19:00