こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

例えば、
○○店
XXXX-XX-XXXX
△△屋
XXXX-XX-XXXX



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

投稿日時 - 2003-02-10 14:38:15

QNo.469062

暇なときに回答ください

質問者が選んだベストアンサー

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

投稿日時 - 2003-02-10 15:46:31

お礼

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

投稿日時 - 2003-02-12 09:43:19

ANo.5

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(6)

ANo.6

関数も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キーを押しながらオートフィルします。以下同じです。

投稿日時 - 2003-02-10 16:39:01

お礼

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

投稿日時 - 2003-02-12 09:44:58

ANo.4

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

投稿日時 - 2003-02-10 15:14:08

お礼

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

投稿日時 - 2003-02-12 09:39:59

ANo.3

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


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列を削除します。

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

投稿日時 - 2003-02-10 14:59:51

お礼

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

投稿日時 - 2003-02-12 09:41:30

ANo.2

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

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

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

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

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

投稿日時 - 2003-02-10 14:56:40

お礼

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

投稿日時 - 2003-02-10 14:59:26

ANo.1

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

投稿日時 - 2003-02-10 14:47:33

お礼

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

投稿日時 - 2003-02-10 14:58:40

あなたにオススメの質問