重複するExcel VBAを確認する

Question

これを最も簡単な方法でどのようにコードするのですか？それぞれ、以下の3つのセルを選択し、の重複が見つかった場合、それらの値（B1、C1、D1、...）

を持っているすべてのセルの重複のRange("A1").value = "Thursday"

チェックをしましょうもし

それらの細胞のうちRange("B2:B4")など...

ありがとうございます！

Answer 1

最も簡単な方法は、重複をチェックすることである：使用> 1

：WorksheetFunction

= COUNTIF（A、A1 A）を使用して

VBA

Dim Target As Range 
Dim r As Range 

Set Target = Range("A1", Range("A" & Rows.Count).End(xlUp)) 

For Each r In Target 
    r.Offset(0, 1) = WorksheetFunction.CountIf(Target, r.Value) > 1 
Next 

あなたは、範囲の最初の列に

Target.RemoveDuplicates列重複を削除したい場合：列が含まれるように範囲を拡大したい場合= xlNo

：= 1、ヘッダーをB及びC

セットTARGET =範囲（ "A1"、範囲（ "" & Rows.Count）.END（xlUp）参照）リサイズ（3）

第一及び第三の列に重複を削除

Target.RemoveDuplicatesカラム：=配列（1、3）、ヘッダー：= xlNo

は重複を含む行を削除

Target.EntireRow.RemoveDuplicates列：=アレイ（1、3）、ヘッダ：= xlNo