Excel2003の区切り位置機能について

質問

Excelで1つのセルに複数の項目が入っています。

例
1　○○株式会社　○○県○市○○町1-1-1

これを各列（A列に1，B列に○○株式会社・・・）に分けたいと思い、
Excelの「区切り位置」機能を使っています。

ただ、件数が非常に多く、毎回同じ作業を行うのは面倒なのですが
何か良い方法は無いでしょうか？

マクロを登録しようと思いましたが、機能の問題なのか上手くいきません。
残念ながらVBAの知識がありません。
どなたか教えて頂けないでしょうか？

回答No.3

stkazu1

セルA1に ○○株式会社　○○県○市○○町1-1-1
セルA2に 03-000-000　山田太郎　総務部　123456789
セルA3に □□株式会社　□□県□市□□町2-1-1
セルA4に 06-000-000　鈴木一郎　庶務部　987645321
・・・・・
セルA599に △△株式会社　△△県□市△△町300-1-1
セルA600に 011-000-000　住友太郎　設計部　13572468

のデータが入力されているとします。
セルC1に計算式 =A2 を入力します。
セルC1とC2を囲んで、コピー
セルC3からC600を囲んで、貼り付け
そうするとC列には、一行おき、A列の偶数行のデータが表示されます。
セルC1からC600を囲んで、コピー
そのままの状態で、形式を選択して貼り付けで「値」をチェックしOK
C列がセルの内容が計算式から文字列に変わります。
A1からC600を囲んで、最優先されるキーをC列にして並び替え
C列にデータが入っていない行を削除
A列のデータを区切り位置で分割

回答No.2

imogasi

データー区切り位置ーコンマや・・ーー次へーー（区切り文字）スペース」にチェックー完了を思いつかないかな。この機能はOKWAVEの例のデータをエクセルシートに落とすときなど、毎日重宝している機能です。
これでうまくいかない点が出れば、それに従って再質問のこと。
＞マクロを登録しようと思いましたが
区切り位置ならマクロの記録を取れるよ。
Selection.TextToColumns・・・を
Range("A1:A5").TextToColumns・・に変えればよい。
A1:A5の部分はデータ行数A1:A3000とかにする。

回答No.1

stkazu1

件数が非常に多くとは
○○株式会社　○○県○市○○町1-1-1
のようなデータが縦にいっぱい入力されていて、１行毎「区切り位置」機能を使っているということでしょうか？

それとも一つのブック若しくはシートには
○○株式会社　○○県○市○○町1-1-1
のようなデータは一件しか入力されていないが、ブック若しくはシートがいっぱいあるということでしょうか？

もし、前者であれば、入力されているセル全体を囲んで、「区切り位置」で「カンマやタブ・・・」を選択し、「区切り文字」で「スペース」にチェックをいれるといっぺんにできると思うのですが、・・・

補足

回答ありがとうございます。

大量のデータ（600件程度）は縦1行毎に入力され、
1シートに入力されております。
また、範囲選択で区切り位置機能を使っていない理由としましては、

○○株式会社　○○県○市○○町1-1-1
03-000-000　山田太郎　総務部　123456789
（1件につき、この2行のデータの繰り返し）

1行目と2行目のフィールド数が異なるため
範囲選択による指定ができないのです。

説明不足な点があり、すみません。