Excelのマクロについて

質問

VBA初心者です。これから勉強して行こうと思っていますが、緊急で対応しなければならない案件が出てきまして、よろしければご教授願えればと思い、投稿いたしました。
あるExcelデータを別の資料に使うために下記のような整理をしたいのです。
＜元データ＞
　分類　名称　担当
　１　　あ　　Ｃ
　１　　い　　Ｅ
　２　　か　　Ｃ
　１　　つ　　Ａ
　２　　お　　Ｂ
　１　　お　　Ｂ
　３　　た　　Ｆ
　１　　め　　Ｄ
　１　　う　　Ｂ

＜整理後＞
　Ａ～Ｄの担当者を抽出し、以下の順番で並べ替えられた結果にしたい。
　(1)担当者：指定の順番（今回の場合、Ａ→Ｃ→Ｄ→Ｂ）
　(2)名称：昇順
　(3)分類：昇順

　分類　名称　担当
　１　　つ　　Ａ
　２　　か　　Ｃ
　１　　め　　Ｄ
　１　　う　　Ｂ
　１　　お　　Ｂ
　２　　お　　Ｂ

現状では、データ(D)→並べ替え(S)を実行し、手作業で担当者のかたまりの順番を行単位でカット＆ペーストして整理し、最後に不要な担当者分の行を削除するという流れで対応していますが、データ量が多く、間違いなども発生しがちで、非常に捗らない作業なのです。

是非、皆様のお力で何とか解決にお導きいただけたらと存じます。
よろしくお願いいたします。

回答No.2

Wendy02 · ベストアンサー

こんばんは。

マクロの場合は、教本には出てこない内容です。
ただ、Excelになれた人なら、たぶん、記録マクロを使ってしまいます。

記録の順序としては、

　(1)担当者：指定の順番（今回の場合、Ａ→Ｃ→Ｄ→Ｂ）
これを、セルのどこかに

Ａ
Ｃ
Ｄ
Ｂ

と書いて、ツール－オプション－ユーザー設定リスト
インポートでリストを読み込みます。

後は、

データ－並べ替え

　(1)担当者：指定の順番
　　↑
　　並べ替え－オプション－並べ替え順序の指定　で選択します。
　(2)名称：昇順
　(3)分類：昇順

とします。なお、あぶれたデータは、下のほうに追いやられます。

マクロの場合は、そのインポートされたリストを削除する、というおまけをつけておきます。

お礼

有難うございました。
先ずはアドバイスの方法で進めてみます。

回答No.3

imogasi

ＶＢＡでといっても、ＶＢＡをこれから勉強する方なら、丸投げの質問への回答になってしまう。
ーー
操作だけでもできるものを、不慣れなうちから、「仕事などに！」ＶＢＡを持ち込むのは危険です。
ーー
操作でできるとおもう。
エクセルの
ツールーオプションー「ユーザー設定」のタブをクリック
「リストの項目」に（別例だが）「社長、副社長、専務、常務、
執行役員、部長、課長」などのように、入力（登録）順序を重視して打ち込み、登録する（「追加」）。この順序に並べたいという登録である。
ーー
ソートの操作において
「並べ替え」のダイアロウグの左下の「オプション」
並べ替え順序の指定」の▼をクリックして、上記の設定を探し
選択する。
それでソートすれば、普通は文字コードでソートされるところが、
社会的な意味的な順序で並べられる。

お礼

ご指摘、ごもっともです。
まずは、ＶＢＡのスキルを引上げておいて仕事に…と思いながら、なかなかリスクを背負わないと血肉になり難い体質奈ものですから、今回の案件を活用しようと思ったわけです。
アドバイス、有難うございました。

回答No.1

zap35

マクロでなくとも作業列を使用したら簡単にできると思いますよ
Ａ　1
Ｂ　4
Ｃ　2
Ｄ　3
のような表をどこかに準備しておいて、シートD列を作業列にします。

D2セルに
=VLOOKUP(A2,表範囲,2,0)
とすれば、並び替えの順位が取得できますから、あとはD列、B列、A列を並び替えのキーとすればよいでしょう。
ただし表範囲は　Sheet2!$A$1:$B$4　のように絶対参照にしておいてください

急ぎならマクロを覚えて使うより作業列を使う方が早いと思いますが。

お礼

回答有難うございました。
この方法も試してみたいと思います。