【マクロ】重複データから一意のデータを抽出する

シート1のA:B列にある重複データをシート2へ単一化して返す。

Sub sample2()

 Dim myRng As Range

Dim myR As Long

With Sheets("シート1")

    myR = .Cells(.Rows.Count, 1).End(xlUp).Row

    Set myRng = .Range("A1", .Cells(myR, 2))

End With

With Sheets("シート2").Range("A1").Resize(myR, 2)

    .Value = myRng.Value

    .RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

End With

End Sub

----------------------------------------------------------------------

下記のコードは、Excelの機能で｢重複を削除｣と同じ事をしている。

Columns("A:B").RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo

ExcelVBAのRemoveDuplicatesの使い方を調べてみた - えくせるちゅんちゅん (excel-chunchun.com)