重複した値を削除　RemoveDuplicatesメソッド



範囲.RemoveDuplicates(Columns, Header)

範囲内で指定した行Columnsに重複する値があれば、その行を削除するRangeメソッドです。
Excel２００７以降でしか使用出来ません。

名前 説明 備考
Columns 範囲で指定した中での列番号
（左から何列目か）
Header 範囲内１行目をヘッダーとして扱うかどうか
既定値はxlNo		 xlYes[扱う]　or
xlNo[扱わない]　or
xlGuess[Excelに判断させる]
引数一覧

例（A1-H11の範囲で３列目（C列）で重複する値を削除する）
Sub RemDTes()
    
    ActiveSheet.Range("A1:H11").RemoveDuplicates Columns:=3, Header:=xlYes

End Sub

結果



Columnsをarrayを使用して配列扱いにした場合は、指定した列で全て一致した場合に削除されます。
※エクセル上やる場合のイメージ



例（A1-C50の範囲で１列目と２列目（AとB列）で共に重複する値を削除する）
Sub RemDTes2()
    ActiveSheet.Range("A1:C50").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub
ラベル: