エクセルの並び替えについて！！

質問

エクセルで住所録を作りたいのですが、いい方法があれば教えてください。
規則的にならんでいるので、できそうな気がするのですが、わたしの知識では無理です！
現時点でのならび順は以下の通りです。

「会社名1
　（空欄の行）
　住所
　備考
　電話番号
　（空欄の行）
　（空欄の行）
　会社名2
　（空欄の行）
　住所
　備考
　電話番号
　（空欄の行）
　（空欄の行）
　会社名3
　・
　・
　・
　」
これを
「会社名1　住所　備考　電話番号
　会社名2　住所　備考　電話番号
　会社名3　住所　備考　電話番号
　・
　・
　・
　」
というように並べ替えたいです。

手動で切り貼りするには膨大な量で8000社分くらいあるので、エクセルの機能でいい方法があれば教えていただきたいです！よろしくおねがいします。

回答No.2

noname#204879 · ベストアンサー

ウィンドウの幅を横いっぱいにしてご覧ください。

Sheet1　　　　　　　　　 Sheet2
　　　 A　　　　　　　　　　　 A　　 B　 C　　 D　　　 E　　　F　G
1　 会社名1　　　　　　　1　会社名1　　 住所　備考　電話番号
2　　　　　　　　　　　　2　会社名2　　 住所　備考　電話番号
3　 住所　　　　　　　　 3　会社名3　　 住所　備考　電話番号
4　 備考
5　 電話番号　　　　 １．Sheet2 のセル A1 に次式を入力
6　　　　　　　　　　　　=OFFSET(Sheet1!$A$1,(ROW()-1)*7+COLUMN(A1)-1,)&""
7　　　　　　　　　　２．そのセルを右方へ（セル G1 まで）ズズーッと複写
8　 会社名2　　　　　３．範囲 A1:G1 を下方へ（8000行くらい？）ズズーッと複写
9　　　　　　　　　　４．範囲 A1:G8000 を選択して[コピー]→[値の貼り付け]
10　住所　　　　　　 ５．列Ｂ、Ｆ、Ｇを削除
11　備考
12　電話番号
13
14
15　会社名3
16
17　住所
18　備考
19　電話番号
20

お礼

回答ありがとうございます。
おかげさまで解決できました。

回答No.4

hallo-2007

入力を縦方向にしてしまったのですね。
次からは、横方向にフィールド名（列の名前を決めて）、
縦方向のそれぞれを入力するようにしましょう。

現在、7行が、セットになって　A列にある場合
B1に
=INDEX($A:$A,(ROW(A1)-1)*7+COLUMN(A1),1)
して、右へ7列分フィル
B1~H1までを選択して、ふぃたフィルではいかがでしょうか。
完了したら、B~Hまでを選択、コピィ
別のシートにA1を選択、
「編集」「形式を指定して貼り付け」値にチェックして張り付けると
数式ではなく、実際の住所などになります。
次からは、このシートを使って入力してはいかがでしょうか。

お礼

回答ありがとうございます。
おかげさまで解決できました。

回答No.3

redowl

会社名1
　（空欄の行）
　住所
　備考
　電話番号
　（空欄の行）
　（空欄の行）
と書いているところから、最終行まで【７行で１単位のデータ】になっていると見なしていいですか？
必ずデータのバックアップをとってから、作業してください。

参照するシートのデータは、A1から並んでいるとします。

下記の式を　sheet2の　A～G列に　コピペ
さらに８０００行（会社数？）までドラッグ
なお、式中　"sheet1"となっている所は、シート名に入れ替える。　　例 "企業データ"

=INDIRECT(ADDRESS(7*(ROW()-1)+COLUMN(),1,1,,"sheet1"))

この後、sheet２の　A~G列をコピー、　別なシートに【値でペースト】する。
これを終えたのち、sheet2の削除。

お礼

回答ありがとうございます。
おかげさまで解決できました。

回答No.1

hirorin00

はじめまして

マクロを組み方法などがあると思うのですが、私は別の方法で…

１、エクセルで住所録を開く
２、「ファイル」→「名前をつけて保存」で「ファイルの種類」を「CSV（カンマ区切り）」にして任意のファイルネームで保存（途中注意事項が出るが「はい」「YES」で進む）し、エクセルをいったん閉じる
３、保存したファイル（○○.csv）を秀丸など正規表現を使えるテキストエディターで開く
４、「置換」で「\n\n\n（改行３つを表す）」を「おっぺけぺ（住所録にあり得ない言葉ならなんでも）」に置換
５、「\n\n」を「,」に置換
６、「\n」を「,」に置換
７、「おっぺけぺ」を「\n」に置換
８、上書き保存
９、エクセルを立ち上げ「ファイル」→「開く」で「ファイルの種類」を「テキストファイル」にして、先ほどのファイルを開く
１０、見事完成

なおテキストエディターで置換する際には「正規表現」を有効にしてください。

的外れでしたらごめんなさい。

お礼

回答ありがとうございます。
わかりやすかったです、おかげさまで解決できました。