
以下のようなセル内のデータを、


以下のように分割して、
複数のセルに設定できます!

「,(カンマ)」で分割して、複数のセルに設定する
ここでは例として、
・シート「sample」のセル「B2」のデータを
・「,(カンマ)」区切りで分割して
・複数のセルに設定
します。

Option Explicit
Sub sample()
Dim srcRange As Range
Dim destRange As Range
'分割したいデータが設定されているセルを指定
Set srcRange = Worksheets("sample").Range("B2")
'分割後のデータの設定を開始するセルを指定
Set destRange = Worksheets("sample").Range("B2")
'「,(カンマ)」で分割
srcRange.TextToColumns Destination:=destRange, comma:=True
End Sub
上記を実行すると、「,(カンマ)」で分割して複数のセルに設定されます。

「スペース」で分割して、複数のセルに設定する
ここでは例として、
・シート「sample」のセル「B2」のデータを
・「スペース」区切りで分割して
・複数のセルに設定
します。

Option Explicit
Sub sample()
Dim srcRange As Range
Dim destRange As Range
'分割したいデータが設定されているセルを指定
Set srcRange = Worksheets("sample").Range("B2")
'分割後のデータの設定を開始するセルを指定
Set destRange = Worksheets("sample").Range("B2")
'「スペース」で分割
srcRange.TextToColumns Destination:=destRange, Space:=True
End Sub
上記を実行すると、「スペース」で分割して複数のセルに設定されます。

上記以外で分割するには
以下のオプションを指定することで、「,(カンマ)」や「スペース」以外の文字でデータを分割することができます。
・Other
・Otherchar
詳細は公式サイトをご確認ください。