VBA 配列で文字列を結合する

　　実務では、場合によって文字列をつなげることがあったりします。今日は、「＆」符号以外で、Join関数でつなげる方法を見てみましょう。

配列（Join関数）で文字列を結合

Sub test()

  Dim Parts(7)　　　　　　　　　　 'ゼロからのため、文字列数より1個少なく設定
  Dim i As Long

  For i = 2 To 9　　　　　　　　　’ループでセルの値を配列に代入
        Parts(i - 2) = Cells(i, 1).Value
  Next i

  Dim myStr
  myStr = Join(Parts, "-")  　　 'Partsの内容を「-」でつないで連結
 
  Cells(11, 1) = myStr      　　　  'セルA11に代入
End Sub

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

関連記事

『VBA　配列とは？』

『VBA　文字列を分割する（Split関数）』

『VBA 文字列の抽出　Mid関数』

『VBA 文字列の抽出　Left関数とRight関数』