エクセルExcelでこのようなことが出来ますでしょうか？

質問

少し長文になりますが、知恵をご教授頂けると助かります。

倉庫内の事務で出荷一覧を作成しています。

エクセル内のデータを条件ごとに罫線を引き手作業で編集しているのですが
傍から見ても効率が良い作業とは言えません。

例えば

帽子の【赤】【白】【黄】を一つの枠内に収め、手袋の【茶】【緑】【黒】を一つの枠内に収める。

といったように作業を毎回自動的に罫線が引かれるようにしたいです。

セルの個数が毎回異なる（ex帽子が【赤】しかない日もある）為、
決まった罫線を予め引いておいてもズレが生じてしまいます。

自分で色々調べてみた所マクロを使用すると出来そうな気がするのですが
セル内の言葉を認識させてそれを条件毎に分けることも可能なのでしょうか？

質問が分かりづらく恐縮なのですが、
エクセルに詳しい方いらっしゃいましたら何卒よろしくお願いいたします。

回答No.2

noname#192382

画像の貼り付けに失敗しましたので、再度回答します。質問の内容を取り違えたいるかもしれませんが、質問の趣旨が下の二つの表の内の下の者を上のように整理するということであれば、下に示すマクロでサンプルのように並べ替えができます。

帽子 黒
帽子 黒
帽子 黄
帽子 白
帽子 白
手袋 赤
手袋 黒
手袋 黒
手袋 黒
手袋 黒
手袋 白
手袋 白

帽子 黒
手袋 黒
帽子 黄
手袋 黒
帽子 赤
手袋 黒
帽子 黒
帽子 赤
手袋 赤
手袋 白
帽子 黒
手袋 黒
帽子 白
手袋 白
帽子 白

Option Explicit

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2010/2/1 ユーザー名 :
'

'
Range("A18:B32").Select
Selection.Sort Key1:=Range("A18"), Order1:=xlAscending, Key2:=Range("B18" _
), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin
End Sub

回答No.1

noname#192382

質問の内容がはっきりしないですが、仮に下の参考画像の下の表のようなデータを上の表のように並べ替えることであるなら、次に示すマクロで実現できます。
Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2010/2/1 ユーザー名 :
'

'
Range("A14:B25").Select
Selection.Sort Key1:=Range("A14"), Order1:=xlAscending, Key2:=Range("B14" _
), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin
End Sub