Split関数で配列を作成する

今回はSplit関数についてメモしておきます。

CSVファイルなど、外部ファイルを読み込んだ際に必要になってくる関数です。

デリミタを指定せず配列へ格納

実行プログラム

Sub Sample3_3_1()
 
    Dim varArray As Variant
    Dim i        As Integer
 
    varArray = Split("日 月 火 水 木 金 土") ' 配列に格納
    
    Range(Cells(1, 1), Cells(1, 7)).Value = varArray  ' セルへ
 
End Sub

Sub Sample3_3_1()

Dim varArray As Variant

Dim i As Integer

varArray = Split("日月火水木金土") ' 配列に格納

Range(Cells(1, 1), Cells(1, 7)).Value = varArray ' セルへ

End Sub

実行結果

デリミタ省略で空白で区切られる

デリミタを指定して配列へ格納

ここでは、デリミタはカンマを指定しています。

実行プログラム

Sub Sample3_3_2()
 
    Dim varArray As Variant
    Dim i        As Integer
 
    varArray = Split("日,月,火,水,木,金,土", ",") ' カンマ区切りで配列に格納
    
    Range(Cells(1, 1), Cells(1, 7)).Value = varArray  ' セルへ
 
End Sub

Sub Sample3_3_2()

Dim varArray As Variant

Dim i As Integer

varArray = Split("日,月,火,水,木,金,土", ",") ' カンマ区切りで配列に格納

Range(Cells(1, 1), Cells(1, 7)).Value = varArray ' セルへ

End Sub

実行結果