配列の値を結合する

今回は配列の値の結合についてメモしておきます。

配列の値を結合するには、Join関数を使います。
シートの値をCSVファイルに出力する時などに使います。

デリミタにカンマを指定します。

実行プログラム

Sub Sample3_6_1()
 
    Dim varArray(1 To 5) As Variant
    Dim i                As Integer
 
    For i = 1 To 5
        varArray(i) = Cells(1, i).Value
    Next
    
    MsgBox Join(varArray, ",")
 
End Sub

Sub Sample3_6_1()

Dim varArray(1 To 5) As Variant

Dim i As Integer

For i = 1 To 5

varArray(i) = Cells(1, i).Value

MsgBox Join(varArray, ",")

End Sub

実行前

実行後

デリミタを省略すると、スペース(” “)で区切られます。