エクセルでの段違いの並び替え

エクセル2010で、画像のように最初Ａ列に赤が５個と黄色が４個、Ｃ列に赤が５個と青が2個、ランダムに入っています。これをＡ列をＥ列のように、Ｃ列をＧ列のように並べ替えたいです。
つまりＡ列とＣ列両方に含まれる赤は真ん中にそろえ、黄色は赤の下、青は赤の上という具合です。実際にＡ列をＥ列に移動させなくても、Ａ列内での並べ替えで結構です。Ｃ列に関しても同様です。

色にしたのは見やすくするためで、実際使う時は色はついておらず、バーコードナンバーが書いてあります。何をしたいかというと、古い出品リストのＡ列と新しい出品リストのＣ列を比べ、整理したいということです。赤が次回も出品する商品、黄色が売り切れ商品、青が新規入荷です。同じ色でも、各セルには違う番号が書いてあります。

このようなＶＢＡコードを教えてもらえないでしょうか？

No.1 ベストアンサー 回答者： hallo-2007 回答日時： 2015/07/04 18:29

とりあえずは、B列のA列の色番号を表示させるVBA

Sub ボタン1_Click()
For i = 2 To 15
Range("C" & i).Value = Range("A" & i).Interior.ColorIndex
Next
End Sub
後は、B列で並び替えします。
ただ、私の思う所ですが
商品名の隣に
１　赤が次回も出品する商品
２　黄色が売り切れ商品
３　青が新規入荷
と数値を入れていき、条件付き書式で　色を付けた方が作業が楽ではないでしょうか。
データの並び替えも出来ますし
別のシートに
希望のするデータを抽出表示した方が便利なような気がします。

この回答へのお礼

考えてみます。ありがとうございました。

お礼日時：2015/07/05 03:49