Sub doRemoveDuplicates()
Range("A1").CurrentRegion.RemoveDuplicates _
Columns:=Array(1, 2), Header:=xlYes
End Sub
指定したセル範囲から重複データを含む行を削除します。
重複しているデータが含まれる行の中で先頭行は残ります。
columns 重複する値を含む列のインデックス値、またはその配列を指定します。
Go to list of users who liked
More than 3 years have passed since last update.
Sub doRemoveDuplicates()
Range("A1").CurrentRegion.RemoveDuplicates _
Columns:=Array(1, 2), Header:=xlYes
End Sub
指定したセル範囲から重複データを含む行を削除します。
重複しているデータが含まれる行の中で先頭行は残ります。
columns 重複する値を含む列のインデックス値、またはその配列を指定します。
Register as a new user and use Qiita more conveniently
Go to list of users who liked