【VBA】セル内のデータを分割して、複数のセルに設定する

「,(カンマ)」で分割して、複数のセルに設定する

ここでは例として、
　・シート「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

詳細は公式サイトをご確認ください。