区切り記号のあるデータ（カンマ）を一括してセルに展開します。
 サンプルでは、シート上に展開したレコード単位のデータを一括してセルに展開します。
 区切り記号は、タブ、セミコロン、カンマ、スペースなどが選択可能です。
 ダブルコーテーションで括られた値を文字列データとします。

[Sample]

Sub Puf_Data_Split()

   '*** データ領域のクリア
   Cells.ClearContents

   '*** データの入力
   Cells(1, 1).Value = "100,1,""店舗１００"""
   Cells(2, 1).Value = "101,1,""店舗１０１"""
   Cells(3, 1).Value = "102,1,""店舗１０２"""

   '*** データ領域の選択
   Cells(1, 1).Resize(3, 1).Select

   '*** データの分割
   Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
   TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
   Semicolon:=False, Comma:=True, Space:=False, Other:=False

End Sub