130528

TextToCoLumnsメソッドで分割


Sheet1のA1,A2,A3にそれぞれ
1,22,333
2,33,444,5555
3,44,555,6666,77777

の値が入っているものとし、これを新しいシートの

D1,E1,F1に

1,

22,

333,

D2,E2,F2,G2に

2,

33,

444,

5555,

D3,E3,F3,G3,H3に

3,

44,

555,

6666,

77777,

とカンマ毎に分割して値を入れるようにしてみる。

Sub 分割()

Dim i As Integer

  Worksheets.Add     'ワークシートの追加
        With Range(Cells(1, 4), Cells(3, 4))
            For i = 1 To 3
                .Cells(i).Value = Worksheets("Sheet1").Cells(i, 1).Value
            Next
            .TextToColumns _
            Destination:=Cells(1, 4), _
            DataType:=xlDelimited, _
            Comma:=True
        End With
End Sub