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

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

以下のように分割して、
複数のセルに設定することが出来ます!

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

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

Sub sample()
    
    '「,」(カンマ)で分割
    Worksheets("sample").Range("B2").TextToColumns Destination:=Range("B2"), _
                                                   comma:=True
    
End Sub

「comma:=True」を記載します。


上記を実行すると、「,」(カンマ)で分割して複数のセルに設定されます。

「 」(スペース)で分割して、複数のセルに設定する

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

Sub sample()
    
    '「 」(スペース)で分割
    Worksheets("sample").Range("B2").TextToColumns Destination:=Range("B2"), _
                                                   Space:=True
    
End Sub

「Space:=True」を記載します。


上記を実行すると、「 」(スペース)で分割して複数のセルに設定されます。

指定した文字で区切るには

以下のオプションを指定することで、「,」(カンマ)「 」(スペース)以外の文字でデータを区切ることが出来ます。
・Other
・Otherchar

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

タイトルとURLをコピーしました