カンマで区切られた文字をいくつかのセルに分割

Sub SellDivision()
'セルの内容にカンマがある場合、セルを分ける

Dim intLastLow As Integer
Dim intChangeColumn As Integer
Dim strChangeValue As String
Dim varDivisionValue As Variant

'入力最終セルの行数を取得
ActiveCell.SpecialCells(xlLastCell).Select
intLastLow = ActiveCell.Row

'変更をかける列を取得
intChangeColumn = Range("A1")

Dim i As Integer

For i = 1 To intLastLow

strChangeValue = Cells(i, intChangeColumn).Value

If InStr(strChangeValue, ",") > 0 Then

varDivisionValue = Split(strChangeValue, ",")

Cells(i, intChangeColumn).Resize(1, UBound(varDivisionValue) + 1).Value = varDivisionValue

End If

Next i

End Sub