エクセルのグループ分け

質問

300名ほどの各人に違った印刷物を同封する作業ですが、
いかに早く出来るよう、グループを分けて、リストを作成したらいいでしょうか。
現在は各個人のリストに項目（列）ごとに○をつけて、一列ずつ該当者に、手作業で５列あれば５回いれています。
最後まで順番をバラすことができず、人数があっても手伝えません。
何かいい方法を教えてください。
パソコンの技術はモス検定は持っています。
（例）
　　 　あ　　　　い　　　　う　　　同封物合計
Aさん　○　　　　○　　　　○　　　　３
Bさん　　　　　　○　　　　　　　　　１
Cさん　○　　　　○　　　　　　　　　２
Dさん　　　　　　　　　　　○　　　　１
・
・
・
合計　250　　　　200　　　100　　　　550

よろしくお願いいたします。

回答No.3

noname#99913 · ベストアンサー

同封物合計のところを、
Aさん　111
Bさん　010
Cさん　110
Dさん　001
として、この列をキーにソートすればどうでしょう。

お礼

早速のご回答ありがとうございます。
なるほどですね、並び替えするにも３箇所までしかできず、
困っていました。
こうすれば何種類もできますね。
すぐにやってみます。ありがとうございました。

回答No.5

pc_knight

Ｎｏ．４です。勘違いしていました。
「手作業で５列」とは、氏名、印刷物３種、同封物合計の５列のことですね。
ニヶ所ある「Target.Column <= 6」を「Target.Column <= 4」に変更します。

Ｅ２セルに「○」の数の合計を求める計算式「=COUNTIF(B2:D2,"○")」を入れ、縦に人数分コピーする。

お礼

ありがとうございました。
これで○の入力がずいぶん省力化出来そうです。
早速使わせていただきます。

回答No.4

pc_knight

ＶＢＡを用いて入力を容易にできる方法を考えました。
まず次の準備作業を行います。
＜準備作業＞
（１）次のコード（「Private Sub Worksheet　～　End Sub」）をコピーし、Sheet1のシート名タグを右クリック→コードの表示（Ｖ）で表示されるコードエリアに貼り付けます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row >= 2 And Target.Column >= 2 And Target.Column <= 6 And Target.Value = "○" Then
Target.Value = ""
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 2 And Target.Column >= 2 And Target.Column <= 6 Then
Target.Value = "○"
End If
End Sub
（２）「Microsoft Visual Basic Book1［Sheet1 コード］」画面右上隅の「×」をクリックし画面を閉じる。これで準備が完了

＜操作方法＞
（１）「○」を入力するべきセルをマウスで選択するとそのセルに瞬時に「○」が自動的に入力されます。
（２）セルをダブルクリックすると、誤入力された「○」を消去されます。

＜操作可能な対象セル範囲＞
２行目以降、且つ、２列目（Ｂ列）～６列目（Ｆ列）のセルです。
範囲の指定は、「If Target.Row >= 2 And Target.Column >= 2 And Target.Column <= 6 Then」で行っています。

回答No.2

n-jun

"○"を打ち込むのに手間がかかるのなら、例えば"1"を打ち込んでいって
後から置換で"1"を"○"にするとか？

入力そのものに手間がかかるとかなら、バーコードシステムとかを導入する？？？

何が問題なのかが今一つわかりませんでした。

回答No.1

orangezzzz

こんにちは。
Excel2007であれば、並べ替えのキーを4つ以上選択できます。
単純に5列のキーを降順で並べれば可能です。