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

質問

列に日付・品名・数量
行にそのデータを入れています。

このデータを元に列に日付を入れて　行に日付のデータを入れ替える方法があるのでしょうか？

3/10　AA　500
3/10　BB 500
3/11 AA 10
3/11 CC 500というデータを

3/10　 3/11
AA 500 AA 10
BB 500 CC 500こんな具合に出来ませんかね。

回答No.2

noname#35109

マクロですがこんなのはどうでしょう。
データのあるシートをアクティブにした状態（見ている状態）にして，
下のマクロを実行させれば，
「NewData」というシートが作成されて，そこに並び替えられたデータが作成されます。

---------------------------------
Sub エクセルの並べ替え()

　　'アクティブシートの記録
　　Set ASheet = ActiveSheet
　　r = 0
　　c = -1

　　' NewDataというシート名シートが無ければ
　　' NewDataというシート名のシートを作成
　　On Error Resume Next
　　Sheets("NewData").Select
　　If Err.Number <> 0 Then
　　 Err = 0
　　 Sheets.Add.Name = "NewData"
　　End If
　　'On Error GoTo 0

　　' ii は ASheetのA列の最終行
　　ii = ASheet.Range("A65536").End(xlUp).Row

　　' NewDataシート に並べ替え
　　For i = 1 To ii
　　　　If ASheet.Cells(i, 1).Value <> ASheet.Cells(i - 1, 1).Value Then
　　　　　　r = 1
　　　　　　c = c + 2
　　　　　　Sheets("NewData").Cells(r, c).NumberFormatLocal = "m/d"
　　　　　　Sheets("NewData").Cells(r, c).Value = ASheet.Cells(i, 1).Value
　　　　　　Sheets("NewData").Cells(r + 1, c).Value = ASheet.Cells(i, 2).Value
　　　　　　Sheets("NewData").Cells(r + 1, c + 1).Value = ASheet.Cells(i, 3).Value

　　　　　　Else
　　　　　　c = c
　　　　　　r = r + 1
　　　　　　Sheets("NewData").Cells(r + 1, c).Value = ASheet.Cells(i, 2).Value
　　　　　　Sheets("NewData").Cells(r + 1, c + 1).Value = ASheet.Cells(i, 3).Value

　　　　End If
　　Next i

End Sub
-----------------------------------

最初のデータが A1 セルから始まっている時のみ，
上のマクロは使えます。

　　　A　　　B　　　C
１　3/10　AA　　500
２　3/10　BB　　500
３　3/11 AA 　　 10
４　3/11 CC　　500

もしタイトル行が上にある場合，

　　　A　　　B　　　C
　　日付　品名　数量
１　3/10　AA　　500
２　3/10　BB　　500
３　3/11 AA 　　 10
４　3/11 CC　　500

つまりこんな場合↑は

　　' NewDataシート に並べ替え
　　For i = 1 To ii

の For文の 1 を 2 にしてください。
つまりこうなります↓。

　　For i = 2 To ii

他の場合のカスタマイズはちょっと難しいと思います。

//////////////////////////////////////////////////////////////////////

マクロの登録方法や使用方法がわからないかもしれないので，
念のため書いておきます。

～～マクロの作成方法～～

[ツール] メニュー→ [マクロ]→[マクロ]でマクロダイアログボックスを出します。
[マクロ名] ボックスに、「実行するマクロの名前」
（つまり エクセルの並べ替え ）を入力し，「作成」をクリック
Visual Basicエディタが開くと，Module1に

----------------------
Sub エクセルの並べ替え()

End Sub
----------------------

がすでに用意されていると思います。ここを

----------------------
Sub エクセルの並べ替え()

　　'アクティブシートの記録
　　Set ASheet = ActiveSheet
　　　…　…　…
　　～　省略　～

End Sub
----------------------

のように書きかえ，一旦Visual Basicエディタを閉じます。
これでマクロの作成は終わりです。

～マクロの実行方法～

方法１　ショートカットから実行
再び[ツール] メニュー→ [マクロ]→[マクロ]でマクロダイアログボックスを出します。
[マクロ名] ボックスの下にある大きなボックスから
「実行するマクロの名前」を選択し「オプション」を選択し，
マクロオプションダイアログボックスから
ショートカットキー
「Ctrl」＋「任意のキー」でショートカットを登録すれば，
次回からこのショートカットキーでマクロが実行されます。
「任意のキー」は P A C Z など日頃自分が使われているキーは避けた方が良いです。

方法２　画像から実行
自分で書いた絵やネット上のボタン画像や写真もマクロ実行のボタンとして使用できます。
ボタンにしたい画像を右クリック→「マクロの登録」で
「実行するマクロの名前」を選択→「ＯＫ」で
マクロ実行ボタンの完成です。

その他，ツールバーのフォームから
ボタンを作って，そのボタンにマクロを登録するなど，
色々な方法があります。

お礼

丁寧な回答ありがとうございます。

早速　マクロ部分をコピーしてやってみました。
思ったものに近いものが出来ました。

あと少し手を加えたいのですが　マクロが今ひとつわからなくて・・・。(^_^;

はじめ　このマクロもコピーして言われていると折りしたはずなのに　コンパイルエラーなど出てお手上げかと思ったら　出来た。結果オーライか？

少し勉強したいと思いますが・・・。
なんか　マクロの初歩でいいサイトなどありますか？
ご紹介いただければありがたいのですが。