セルの数字を昇順に並び替えて重複削除する方法

質問

いつも大変お世話になっております。
どなたかご存じの方がお見えでしたら回答頂けると幸いです。
【質問】
　添付図のとおり、２列×２０行の数字が【入力値２列】欄に入っています。
　この数字を昇順に並び替えて重複数字を削除したものを【重複チェック済2列】に
　出力します。また、【入力値２列】欄の数字を【入力値1列】に縦1列にして数字　を昇順に並び替えて重複数字を削除したものを【重複チェック済1列】に出力しま　す。具体的には下記(1)～(4)の手順です。質問は２列×２０行での場合ですが、
　２列×２００行の場合でも上記のことができるようにしたいです。

　＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
(1)入力値２列（Ａ列・Ｂ列）に２つの値をセットします。
(2)入力値２列（Ａ列・Ｂ列）の値を重複チェック済２列（Ｄ列・Ｅ列）に並べて昇順に並び替えて重複数字を削除します。
(3)入力値２列（Ａ列・Ｂ列）の値を入力値１列（Ｇ列）に１列にセットします。
(4)入力値１列（Ｇ列）の値を重複チェック済１列（Ｉ列）に並べて昇順に並び替えて重複数字を削除します。

以上、よろしくお願いします。

回答No.4

msMike · ベストアンサー

“丸投げ”だつたとは想定外でした。
前に「とても分かり易くご説明」と申し上げたやうに、貴方は Excel の鐵人に違ひないと思つていたからです。
何百列、何千行であろうと、関数だけでも可能です。
此処では貴方が呈示された２列20行の場合を示すので、気が向いたら應用なさつてください。

D2: =IF(ROW(A1)>40,"",OFFSET(A$2,(ROW(A1)-1)/2,MOD(ROW(A1)-1,2)))
E2: =IF(COUNTIF(D$2:D2,D2)>1,"",D2)
F2: =IFERROR(SMALL(E$2:E$41,ROW(A1)),"")

お礼

回答頂きありがとうございます。
頂いた回答を元にして活用いたします。

回答No.3

msMike

【質問】の直下から「２列×２００行の場合でも…したいです」までのご説明、とても分かり易くご説明どおりの手順で、最終的に【重複チェック済1列】を得ることが出来ました。
しかし、直接【入力値２列】から【重複チェック済1列】を得ることも可能です。
だから、「２列×２００行の場合でも上記のことができる」と信じていますが、貴方に取って何処が問題なのか教えてください。私自身はマクロ音痴なので、そのアドバイスは出来ませんが、貴方はマクロを期待されているのでしょうか？
マクロの“マ”の字も書いてありませんが、如何なもんでしょうか？

補足

回答ありがとうございます。
＞貴方に取って何処が問題なのか教えてください。
自力では解決できないため、
やりたい事を添付図にまとめて所謂、
”丸投げ”で皆様からお知恵（ＶＢＡのソース等）を拝借しようと思っています。

回答No.2

kkkkkm

> ＶＢＥでやるとしたらどうゆう記述になりますか？

だからマクロの記録でコードを取ればと言ってるのですが…。
マクロの記録を知らないのでしたら調べてください。

回答No.1

kkkkkm

マクロでやりたいのでしたらマクロの記録で200行までのデータで記録を取ればいいのではないですか。

補足

回答ありがとうございます。
ＶＢＥでやるとしたらどうゆう記述になりますか？