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

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

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

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

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

No.2 ベストアンサー 回答者： mitarashi 回答日時： 2011/01/04 12:31

データ／区切り位置でやるのが簡単だと思いますが、

マクロでやるなら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

この回答へのお礼

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

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

お礼日時：2011/01/04 13:19

No.1 回答者： kybo 回答日時： 2011/01/04 12:18

A列を選択→データ→区切り位置→カンマやタブなど・・・→カンマにチェックして、完了。

必要であれば、これをマクロ記録してみてください。

この回答へのお礼

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

お礼日時：2011/01/04 13:20