エクセルでの処理方法を教えてください

質問

例えば、
○○店
XXXX-XX-XXXX
△△屋
XXXX-XX-XXXX
・
・
・
となっているデータがあるとしてそれをエクセルで表にしたい時、どのようにしたらいいと思いますか？
○○店　　XXXX-XX-XXXX
△△屋　　XXXX-XX-XXXX
縦に繋がっているデータを横にしたいのです。
XXXX-XX-XXXXは電話番号です。
それ以外に住所などもあります。
最終的にはすべて情報をを一つのシートにして検索などもしやすいようにしたいです。
ＶＢＡなしで作るにはどうしたらいいと思いますか？
良いアイディアがあったら教えてください。
バージョンは２０００です。

回答No.5

imogasi · ベストアンサー

Ａ列で、社名、電話番号の出現の規則性が完全として
Ｂ１に=INDEX($A$1:$A$100,2*(ROW(B1)-1)+1)
Ｃ１に=INDEX($A$1:$A$100,2*ROW(C1))
と式を入れてＡ列の行の半分まで複写してください。
$A$1:$A$100はＡ列がＡ１：Ａ１００までデータが入っているときの例です。適宜変えてください。＄は必ず付けるように。

お礼

これもすごいですねー。
ありがとうございます。

回答No.6

telescope

関数もVBAも使わない方法。

となりの列に1、2と入れてオートフィルします。
B2、B3セルだとしたら、B2、B3セルを選択して、右下の＋マークをCtrlキーを押しながら、マウスで下までドラッグします。1、2、1、2、1、2・・・・となります。
「データ」－「並べ替え」で優先されるキーをB列にして昇順でOKボタンを押します。

○○店
△△屋
　・
　・
　・
XXXX-XX-XXXX
XXXX-XX-XXXX
XXXX-XX-XXXX
のように並び替わりますから、電話番号をB列に移動させます。

項目が増えて、住所などが入っているなら、
○○店
XXXX-XX-XXXX
○○市
△△屋
XXXX-XX-XXXX
△△市
1、2、3と入力してCtrlキーを押しながらオートフィルします。以下同じです。

お礼

こういう方法もあるのですね。
ありがとうございました。

回答No.4

htotoro

原始的ですが
まず該当セルを選択してコピー、
貼り付けるセルをポイントして右クリックして「形式を選んで貼り付け」で「行列を入れ替える」でいかがでしょうか？確実ですよ。

お礼

ありがとうございました。
こういう方法もあるんですねー。

回答No.3

wildcard

まず、A列にのみデータがあり、B列以降には、何も入っていないとし、データはA1セルから始まり、50件（200行目まで）あると仮定します。
また、データは、名前、電話番号、住所の４項目存在するとします。

1.B1セルに、=row()
　C1セルに、=A1
　D1セルに、=A2
　E1セルに、=A3
　F1セルに、=A4
とそれぞれ数式を入力します。

2.B1～F4セルをコピーし、B5（次のデータ開始行のB列）からF200（A列の最終行）まで選択し、貼り付けます。

3.B1～F200をコピーし、そのまま、値のみ貼り付けをします。

4.B1～F200を選択し、B列の昇順で並べ替えます。

5.A列を削除します。

以上で完成するハズです。

お礼

なるほど～
こういう方法もあるのですね。
ありがとうございました。

回答No.2

redraft

まず先頭行を入れます。先頭行は"データ"とかなんでもいいです。
データ
○○店
06-XX-XXXX
△△屋
0728-XX-XXXX

次にオートフィルタを設定します。
メニュー／データ→フィルタ→オートフィルタです。
すると下のようにデータの横に▼が付くはず。
データ▼
○○店
06-XX-XXXX
△△屋
0728-XX-XXXX

▼を押して(オプション...)
を選んで下さい。
データ欄:0*
条件：と等しい
で電話番号

データ欄:0*
条件：と等しくない
で電話番号以外

が抽出されます。後はコピーペーストで別シートにでも列を変えて
貼り付けて下さい。

お礼

オートフィルタですね。
ありがとうございました。

回答No.1

noname#4564

元のデータがどんな形式なのかわかりませんが、先頭から末尾まで順次読み込み、書き出すしかなさそうです。

お礼

そうですかー。
やっぱり手間をかなりかけないとだめでしょうかねー。
ありがとうございました。