RemoveDuplicates メソッド
指定したセル範囲から重複データを含む行を削除します。削除する場合は、重複しているデータが含まれる行の中で、先頭行のみ残します。このメソッドは、Excel 2007 以降のバージョンでのみ使用できます。
【書式】
object.RemoveDuplicates ( columns [, header ] )
引数・戻り値
- object ・・・ 対象となる Range オブジェクトを指定します。
- columns ・・・ 重複する値を含む列のインデックス値、またはその配列を指定します。
- header ・・・ 先頭行をタイトル行とみなすかどうかを示す XlYesNoGuess 列挙型 の定数またはその値を指定します（省略可）。
定数 値 内容 xlGuess 0 先頭行をタイトル行とみなすかどうか、Excel が特定します。 xlYes 1 先頭行をタイトル行とみなします。 xlNo 2 範囲全体が重複データ削除の対象になります。（既定値）
重複データを削除する（RemoveDuplicates メソッド）使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 |
Sub Sample_RemoveDuplicates() Range("A1").CurrentRegion.RemoveDuplicates _ Columns:=Array(1, 2), Header:=xlYes End Sub |
実行結果
サンプルVBAソース 実行前
実行後
