VBA/配列要素を結合する・Join関数 の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• VBA/配列要素を結合する・Join関数 へ行く。

#author("2023-12-02T21:01:51+09:00","","")
#navi(../)
* VBAで配列要素を結合する・Join関数 [#k045925b]
VBAでのJoin関数のサンプルコードと実行結果を紹介します。~
PHPのimplode, Rubyのjoin, JavaScriptのjoinに該当します。

#contents
#htmlinsert(office_ads_top.html)

* 動作実行環境 [#qdd2798a]
-Windows 10 22H2
-Microsoft® Excel® for Microsoft 365 MSO (バージョン 2310 ビルド 16.0.16924.20054) 32 ビット

* 関連サイト [#tbef3fc0]
-[[Microsoft Learn: Join 関数 (Visual Basic for Applications) - VBA>https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/join-function]]


* Join関数の構文 [#je50ef71]
以下の構文は、-[[Join 関数 (Visual Basic for Applications) - VBA>https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/join-function]] からの抜粋となります。~

-構文~
Join(sourcearray, [ 区切り記号 ])
#br
Join 関数の構文には、次の名前付き引数があります。
#br
|~パーツ|~説明|
|sourcearray|必須。&br;結合するサブ文字列を含む 1 次元配列。|
|delimiter|省略可能。&br;返される文字列内のサブ文字列の区切り文字。&br;省略した場合は、空白文字 (" ") が使用されます。&br;区切り記号が長さ 0 の文字列 ("") の場合、リスト内のすべての項目が区切り記号なしで連結されます。|


* サンプルコードと実行結果 [#fde76760]
Join関数を使ったVBAサンプルコードと実行結果を以下に記します。

** Join関数を使ったサンプルコード [#qc4dea98]

 Option Explicit
 
 Sub RunJoinSample()
 
     Dim ary As Variant
     
     ary = Array("I", "wish", "for", "world", "peace.")
     
     MsgBox _
         Join(ary), _
         vbOKOnly, _
         "Join(ary)"
 
     MsgBox _
         Join(ary, ""), _
         vbOKOnly, _
         "Join(ary, """")"
 
     MsgBox _
         Join(ary, ","), _
         vbOKOnly, _
         "Join(ary, "","")"
 
 End Sub

** 実行結果 [#vd9e0a08]
上記サンプルコードの実行結果です。

- delimiter なしのため、デフォルトの" "空白文字となります。
#br
#ref(01.png)
#br
- delimiter "" のため、配列内の文字列がそのまま結合されます。
#br
#ref(02.png)
#br
- delimiter "," のため、,で区切られ結合されます。
#br
#ref(03.png)
#br

以上、VBAでJoin関数を使ったサンプルコードの紹介でした。

#htmlinsert(office_ads_btm.html)