[VBA]シートの重複データを削除する

[Excel]シートの重複データを削除するで記録したマクロ(VBA)を汎用的に活用するためにカスタマイズを行います。

記録したマクロは以下となります。

Sub Macro1()
Range("A1").Select
　　Selection.CurrentRegion.Select
　　Range("A1:C24").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
　　Selection.Copy
　　Workbooks.Add
　　ActiveSheet.Paste
End Sub

このマクロで気になる点はセルの指定がされている二箇所です。

セルしてされている場合、汎用的には使用できません。

まので、この二箇所を汎用的に使用でできるように修正します。

まず最初にA1セル選択が記録されていますが、必要ないので削除します。

Sub Macro1()
　　Selection.CurrentRegion.Select
　　Range("A1:C24").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
　　Selection.Copy
　　Workbooks.Add
　　ActiveSheet.Paste
End Sub

次にセルの範囲が指定されている箇所を選択範囲と変更します。

Sub Macro1()
　　Selection.CurrentRegion.Select
　　Selection.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
　　Selection.Copy
　　Workbooks.Add
　　ActiveSheet.Paste
End Sub

これで完成です。

表形式に依存することなく、使用できるマクロとなりました。