Excelの列に入っている値を全て繋げて、変数に入れるにはどうしたら良いか、教えてください。 ⚫︎E

Excelの列に入っている値を全て繋げて、変数に入れるにはどうしたら良いか、教えてください。

⚫︎Excelシート
A列
果物リスト
りんご
ばなな
みかん

⚫︎変数名
kudamono

⚫︎やりたい事
変数名kudmonoには、「りんごばななみかん」と入ってほしいです。

行数は増減します。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/02/17 17:13

こんにちは

Range(Cells(2, "A"), Cells(Rows.Count, "A").End(xlUp))
A列2行目から最終行の範囲を
For Each r In 一列なので上から下にループします

Sub test()
Dim kudamono As String
Dim r As Range
For Each r In Range(Cells(2, "A"), Cells(Rows.Count, "A").End(xlUp))
If kudamono = "" Then
kudamono = r.Text
Else
kudamono = kudamono & r.Text
End If
Next

MsgBox (kudamono)

End Sub

何か事情があるのでしょうけれど、この変数、使いにくく無いですか？

kudamono & "," & r.Text
りんご,ばなな,みかん となるけれど
文字列をカンマ区切りにしておけば
splitなどで分けられるので良いのかな？と思いました。

この回答へのお礼

ありがとうございます！理想の表示になりました

お礼日時：2022/02/17 20:40

No.2 回答者： Qchan1962 回答日時： 2022/02/17 17:21

＃１です

一応　ワークシート関数TEXTJOINが使えるバージョンであれば
Sub test1()
Dim kudamono As String
kudamono = WorksheetFunction.TextJoin("", True, Range(Cells(2, "A"), Cells(Rows.Count, "A").End(xlUp)))
MsgBox (kudamono)
End Sub

この回答へのお礼

こちらもありがとうございます！
私の使っているものはバージョンが使えないものだったみたいですが、とても参考になりました！！

お礼日時：2022/02/17 20:40