この関数と同じ処理をVBAで行うにはどうしたら良いでしょうか？ これは、1列の中に同じ値が複数存在し

この関数と同じ処理をVBAで行うにはどうしたら良いでしょうか？
これは、1列の中に同じ値が複数存在しているかユニークかを判断させる処理です。
AM列中の結果をAO列に書き出してます。
=IF(COUNTIF($AM$1:AM1,$AM1)>=2,"重複","ユニーク")

数十万行あるので関数だと非常に時間がかかるため、
VBAで処理してみたいと思っています。

本当は、AM列以外にAQ列、AU列でも同様の処理を行えると嬉しいです。

No.1 回答者： zongai 回答日時： 2022/07/07 08:03

最終行取得

先頭行追加し、最終行まで行の通し番号を書き込む。
AM列でソート
最終行まで、今の行のAM列のセルと、前の行もしくは後ろの行に同じあれば「重複」とする
先頭行でソートして並び順を元に戻す。
先頭行を削除。

こういう流れで考えてみてはいかが

この回答へのお礼

当然その方法で行っていますが、40万行に近づいてきてからは、
全ての処理が遅くて遅くて支障をきたしています。
その流れでの質問です。

お礼日時：2022/07/07 15:42