エクセルマクロに関する簡単な質問です。

URLはダミーです。

マクロで書く必要がなければ、関数で処理ができます。

処理を単純化するために　各行に対してあらかじめ、番号をふります。

仮にB列に上から、１、２、３とふります。

そのあと、B列とC列のデータ部分を選択して、C列を昇順に並び替えを実行します。

（そうすることで、同じ番号が上下に並ぶことが保証されます。）

そして、D列が空いていると仮定しますが、一番上のD2のセルに、C2の値をコピーします。D3のセルに関数を記述することになりますが、論理式で処理して、

[=IF(C3=C2,”重複”,C3)]

と入力します。そして、そのセルを選択して、そのままずりずりと下に必要な分ドラッグして式を入力します。（オートフィル）

これで、希望の処理が完了です。

この後、先ほどふったB列の番号で昇順に並び替えれば、もとの状態になります。

C列に値を入力したければ、D列をコピーして、形式を選択してコピーで値をコピーすれば、全て完了ですね。

マクロで記述したければ、上記の処理を記述して頭から実行すればいいですね。

並び替えをするのが、

かえって効率的だと思いますよ。

VBAで検索を行って…という方法でも良いですが、ワークシート関数とマクロの記録でも十分可能です。

C2　100　=IF(SUMPRODUCT(($C$2:C2=C2)*1)=1,C2,”重複”)

C3　200　=IF(SUMPRODUCT(($C$2:C3=C3)*1)=1,C3,”重複”)

C4　300　=IF(SUMPRODUCT(($C$2:C4=C4)*1)=1,C4,”重複”)

C5　100　=IF(SUMPRODUCT(($C$2:C5=C5)*1)=1,C5,”重複”)

C6　400　=IF(SUMPRODUCT(($C$2:C6=C6)*1)=1,C6,”重複”)

こんな感じの数式を作業列に入力（してフィル）

作業列をコピー

C列に形式を選択して貼り付け（値）

作業列を削除