エクセル 縦方向に並んでるデータを、横方向に並べたい

質問

例）
シート１に以下のデータがあります。

　　A　　B　C　D
　名前 日付 点 評価
1 山田 3/18 90 A
2 山田 3/20 65 B
3 佐藤 2/28 40 D
4 佐藤 3/11 90 A
5 佐藤 3/13 85 A
.
.
これをシート２に、

　　A　　B　C　D E F G H I J
1 山田 3/18 90 A 3/20 65 B
2 佐藤 2/28 40 D 3/11 90 A 3/13 85 A・・・・
.
.

というように名前を元に時系列にして横に並び替えたいのです。

リアルタイムに更新するわけではないので、作業が複数回に
わかれてもかまいません。
変換元の横列の項目は4項目(名前・日付・点・評価)のみですが、
縦列の同じ名前の件数は最大で２０件ほどあり、これからも増えます。
何かよい方法はありますでしょうか？

回答No.5

yuu_yuu · ベストアンサー

＃１です。

質問をちゃんと読んでませんでした；；
申し訳ありません。

お詫びといっては何ですが、マクロのサンプルです。
急いで作ったので、制限事項がたくさんあります＞＜
・シート1のA列（名前）で、ソートしてある必要があります。
・シートの名前を固定にしてしまいました。（"Sheet1"、"Sheet2"）

Sub Mac1()

Dim Line1 As Integer 'Sheet1 の行
Dim Line2 As Integer 'Sheet2 の行
Dim Row2 As Integer 'Sheet2 の列
Dim Key As String 'キー

'初期クリア
Line1 = 1
Line2 = 0
Row2 = 2
Key = ""

'無限ループ
Do While (1)
'Sheet1のA列セルにデータが入ってない場合、処理を終了
If Worksheets("Sheet1").Cells(Line1, 1).Value = "" Then
Exit Sub
End If

'Sheet1 A列とキーが違う場合（Sheet1 A列がソートされていることを期待している）
If (Worksheets("Sheet1").Cells(Line1, 1).Value <> Key) Then
'Sheet2 の行をインクリメント
Line2 = Line2 + 1
'Sheet2 の列を初期クリア
Row2 = 1
'Sheet1 A列を、Sheet2 A列に
Worksheets("Sheet2").Cells(Line2, 1).Value = Worksheets("Sheet1").Cells(Line1, 1).Value
Key = Worksheets("Sheet1").Cells(Line1, 1).Value
End If
'Sheet1 B列を、"Sheet2"「次の」列に
Row2 = Row2 + 1
Worksheets("Sheet2").Cells(Line2, Row2).Value = Worksheets("Sheet1").Cells(Line1, 2).Value
'Sheet1 C列を、"Sheet2"「次の」列に
Row2 = Row2 + 1
Worksheets("Sheet2").Cells(Line2, Row2).Value = Worksheets("Sheet1").Cells(Line1, 3).Value
'Sheet1 D列を、"Sheet2"「次の」列に
Row2 = Row2 + 1
Worksheets("Sheet2").Cells(Line2, Row2).Value = Worksheets("Sheet1").Cells(Line1, 4).Value

'Sheet1 の行をインクリメント
Line1 = Line1 + 1
Loop

End Sub

以上です

お礼

ありがとうございます！！

完璧に動作しました！！

本当に助かりました！！！

回答No.4

koko88okok

回答ではありませんが、

現状のデータを保存しておかれることを強くお勧めします。
変更後のデータは、Excelの機能のオートフィルの抽出などができなくなって、単に見るだけのデータになってしまいます。

回答No.3

higekuman

マクロで処理する以外は、力技に頼るしかないでしょうね。

ただ、質問者様がこの質問をした段階で、これをマクロで処理する発想がないということは、マクロのことは解らないということですよね。

マクロを覚えるよりは、力技に頼ったほうが早いですかね。

補足

処理しなきゃならないデータが5000件ほどありますので、
手作業は避けたいところです。

マクロは勉強不足で一から自力で作成することはできません。
ただ、サンプルを作っていただければ、解読して変更するくらい
のことはできます。

同じような質問を検索すると"配列数式"というものを用いて
解決できるような気もするんですが、こちらは自分用に
カスタマイズしようにもとてもややこしくて理解不能でした。。。

回答No.2

subaru361

手作業でということなら、オートフィルタで、名前をキーにフィルタをかけたあと、名前毎にコピー→行列入れ替え貼り付けで実現できます。
エレガントにやりたいというなら、マクロを組みましょう。

補足

処理しなきゃならないデータが5000件ほどありますので、
手作業は避けたいところです。

回答No.1

yuu_yuu

データをコピーして、貼り付けたいセルの先頭で「形式を選択して貼付け」→右下の「行列を入れ替える」→「OK」
ではだめでしょうか？

補足

その方法だと、

　　A　　B　C　D E F G H I J
1 山田 3/18 90 A 3/20 65 B
2 佐藤 2/28 40 D 3/11 90 A 3/13 85 A・・・・

↑こうならずに

A B C D E
1 山田　山田　　佐藤　　佐藤　　佐藤
2 3/18　3/20　　2/28　　3/11　　3/13
3 90　　65　　　40　　　90　　　85
4 A　　　B　　　　D　　　A　　　A

↑こうなってしまいます。