エクセルのデータをまとめたいのだけれど

質問

同じフォーマットのアンケート結果のデータが５００シートくらいあって、それをひとつのシートにまとめたいのですが、どうすればいいのか思いつきません。どなたかご教授願います。

ちなみにフォーマットは、

住所　大阪市○○町
氏名　山田　花子
性別　女

こんなかんじのものです。これを

住所　　　　　　　氏名　　　　　性別
大阪市○○町　山田花子　　女
東京都××区　鈴木太郎　　男

こんな形のデータにまとめたいのです。
よろしくお願いします。

回答No.5

composer

マクロを使いましょう。

知識が無いかもしれないので、できるだけ最低限の編集で完成するように作ってみました

データをまとめるためのシートを新しく作って、名前を"リスト"とします
"リスト"シート上で、キーボードのAltとF11を同時に押してください。
新しく出てきたウィンドウの左の方にある、Sheet#(リスト)という文字（#は数字です）をダブルクリックして、出てきた白い画面に、以下のプログラムをコピぺしてください
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Sub リスト作成()

Dim objSheet As Object
Dim intLoop As Integer

sheets("リスト").select
　Range("A2").Select '住所をリストのA2以降に並べるとします

intLoop = ActiveCell.Row

For Each objSheet In ActiveWorkbook.Sheets
ActiveWorkbook.ActiveSheet.Cells(intLoop, ActiveCell.Column).Value = objSheet.Range("B1").Value　'住所が各シートのB1にあるとします。
intLoop = intLoop + 1
Next

Range("B2").Select　　'名前をリストのB2以降に並べるとします

intLoop = ActiveCell.Row

For Each objSheet In ActiveWorkbook.Sheets
ActiveWorkbook.ActiveSheet.Cells(intLoop, ActiveCell.Column).Value = objSheet.Range("B2").Value　'名前が各シートのB2にあるとします。
intLoop = intLoop + 1
Next

Range("C2").Select　　'性別をリストのC2以降に並べるとします

intLoop = ActiveCell.Row

For Each objSheet In ActiveWorkbook.Sheets
ActiveWorkbook.ActiveSheet.Cells(intLoop, ActiveCell.Column).Value = objSheet.Range("B3").Value '性別が各シートのB3にあるとします。
intLoop = intLoop + 1
Next

End Sub

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

各シートのデータの位置は、仮に決めたので、セルの位置を編集し直して下さい。
これでどうですか？

回答No.4

imogasi

この質問には
（１）項目縦のものを横にする
（２）500シートを１つにする
のうち１シートや数シートなら関数でできますが、
（２）の問題の解決が難しい。
エクセルＶＢＡでやるよりほかないでしょう。
（１）は
例データ
Ａ１：Ｅ１２のＡ１：Ｂ１２
氏名 Ａ 1 0 0
住所 Ｘ 1 1 0
性別 Ｆ 1 1 1
1 1 1
性別 Ｍ 1 1 2
氏名 Ｂ 2 1 2
住所 Ｙ 2 2 2
2 2 2
2 2 2
氏名 Ｃ 3 2 2
住所 Ｚ 3 3 2
性別 Ｍ 3 3 3
ーーーーー
Ｃ１に=COUNTIF($A$1:A1,"氏名")
Ｄ１に=COUNTIF($A$1:A1,"住所")
Ｅ１に=COUNTIF($A$1:A1,"性別")
下に式を複写する。
ーーーーー
Ｈ１に氏名列として
=OFFSET($A$1,MATCH(ROW(),$C$1:$C$12,0)-1,1)
Ｈ２以下に複写します
Ｉ列住所、Ｊ列性別は省略します。
もう少し丁寧にすべき点がありますが長くなるので略。
Ｈ，Ｉ，Ｊは別シートのＡ、Ｂ、Ｃ列などにもってこれます。式は少し変わりますが。

回答No.3

fukkyse

B1タイトル行・B2からB4・B5からB7（以降繰り返し）にデータが入力されているとして。

C2に=OFFSET($B$2,(ROW()-2)*3,0,1,1)
D2に=OFFSET($B$3,(ROW()-2)*3,0,1,1)
E2に=OFFSET($B$4,(ROW()-2)*3,0,1,1)

下方向へコピー。1シート：1アンケートの場合は的外れなので無視してください。

回答No.2

ta123

ＶＢＡなら簡単ですが他の方法ということでしたら、

まとめたいシートは１行目に「住所」「氏名」「性別」とあり２行目からデータが展開し、個々のデータのシート名は"Sheet1","Sheet2","Sheet3"・・・となっている場合

まとめたいシートに以下のような数式を作るのはどうでしょうか。

=INDIRECT("Sheet"&ROW()-1&"!A1")　　　

※A1は住所等のセルアドレス。２行目にこの数式を入れると=Sheet1!A1と評価されます。
３行目以降はこの数式をコピーすればOKです。

回答No.1

sesera

質問者様の意図する回答になっていないかもしれないのですが、データをコピーして「形式を選択して貼り付け」で「行列を入れ替える」というチェックボックスをオンにするという方法はいかがでしょうか？もっと効率的に編集できる方法があるのかもしれませんが、ご参考になれば幸いです。