エクセル 文字列を分割するマクロについて

質問

１行目から200行目くらいまで、Ａ列に次のようなデータが入っています。

（Ａ1セル）
A
1 Ａ,Ｂ,Ｃ,Ｄ,Ｅ,Ｆ,Ｇ,Ｈ,Ｉ,Ｊ,Ｋ,Ｌ,Ｍ,Ｎ,Ｏ,Ｐ,Ｑ,Ｒ,Ｓ

このデータを下記のようにカンマごとに別のセルに分割するマクロを
教えていただけないでしょうか。
Ａ1に「Ａ」を、Ｓ1に「Ｓ」を入れたいと思っています。

　Ａ　Ｂ　Ｃ　・・・　Ｒ　Ｓ
1 Ａ　Ｂ　Ｃ　・・・　Ｒ　Ｓ

回答No.2

mitarashi · ベストアンサー

データ／区切り位置でやるのが簡単だと思いますが、
マクロでやるならsplit関数を使えばできます。ご参考まで。

Sub test()
Dim myCell As Range
Dim buf As Variant
For Each myCell In Range(Range("A1"), Range("A" & Rows.Count).End(xlUp)).Cells
buf = Split(myCell.Value, ",")
myCell.Resize(, UBound(buf) + 1) = buf
Next myCell
End Sub

お礼

無事にやりたかったことが、出来ました。
ありがとうございました。

データ→区切り位置で出来ることも発見できて嬉しいです。

回答No.1

kybo

A列を選択→データ→区切り位置→カンマやタブなど・・・→カンマにチェックして、完了。
必要であれば、これをマクロ記録してみてください。

お礼

早々の対応ありがとうございました。
マクロ無しでも、スマートに出来ることを
知って嬉しく思います。