エクセルの並び替えのことで

質問

以下のような表があります。

　　 　　 x 　　a 　　m 　　e 　　h
太郎 　90 　65 　 75 　 50 　80
一郎 　65 　40 　 23 　 75 　45
花子 　85 　70 　 55 　 40 　65

A2～A3が氏名、B1～F1がテスト名になっています。
この表をテスト名のアルファベット順に並び替えることは可能でしょうか。
可能でしたらやり方を教えて下さい。

回答No.3

imogasi · ベストアンサー

マクロの記録を少し改造してなら出来ます。
Sub Macro1()
For i = 1 To 6 Step 2
Range(Cells(i, 2), Cells(i + 1, 6)).Select
Selection.Sort Key1:=Cells(i, 2), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _
:=xlPinYin
Next i
End Sub
例を挙げておられるデータを使いました。Ａ１：Ｇ６に
x a m e g
太郎 90 65 75 50 80
m e x g a
花子 65 40 23 75 45
a g e x m
次郎 85 70 55 40 65
結果
a e g m x
太郎 65 50 80 75 90
a e g m x
花子 45 40 75 65 23
a e g m x
次郎 85 55 70 65 40

お礼

ありがとうございました。

回答No.2

zealzany

「データ」「並べ替え」「オプション」「列単位」
でできませんか。

補足

ありがとうございました。
ちょっと私の表記が不正確でした。
実際は以下のような感じでした。

　　 　　 x　a　m　e　g
太郎 　90 65 75 50 80
　　　　　m　e　x　g　a
一郎 　 65 40 23 75 45
　　　　　a　g　e　x　m
花子 　85 70 55 40 65

一度の変換では無理でしょうか？

回答No.1

Hageoyadi

列方向の並べ替えなら参考URLへ

参考URL：

http://arena.nikkeibp.co.jp/tec/excel/gaz/147/

補足

ありがとうございました。
ちょっと私の表記が不正確でした。
実際は以下のような感じでした。

　　 　　 x　a　m　e　g
太郎 　90 65 75 50 80
　　　　　m　e　x　g　a
一郎 　 65 40 23 75 45
　　　　　a　g　e　x　m
花子 　85 70 55 40 65

一度の変換では無理でしょうか？