VBA～セルのデータを区切り文字で分割して複数セルに分けよう～Excel

VBAでセルのデータを区切り文字で分割して複数セルに分けたい場合はRange.TextToColumnsメソッドを設定します。

スペース区切りの場合

スペース区切りのデータを分割したい場合はRange.TextToColumnsメソッドのパラメーターSpaceをTrueに設定します。

下のコードを実行するとセルA1からセルA3のデータが分割されます。

Sub test1()

Range("A1:A3").TextToColumns Space:=True

End Sub

コンマ区切りの場合

コンマ区切りのデータを分割したい場合はRange.TextToColumnsメソッドのパラメーターcommaをTrueに設定します。

下のコードを実行するとセルA1からセルA3のデータが分割されます。

Sub test2()

Range("A1:A3").TextToColumns comma:=True

End Sub

分割場所を指定する場合

分割場所を指定したい場合はRange.TextToColumnsメソッドのパラメーターDestinationで分割したデータを表示する範囲の左上のセルを指定します。

下のコードを実行するとセルA1からセルA3のデータが分割されセルA5からセルB7に表示されます。

Sub test3()

Range("A1:A3").TextToColumns Destination:=Range("A5"), Space:=True

End Sub