エクセルで同一データの行を自動削除するツールを作成したい

質問

VBA、マクロ初心者です。
たぶんマクロではできないと思うのですが、エクセルにて同一データを持つ行を自動検索して削除していきたいのです。どのように作ればよいのか教えてください。

回答No.2

Wendy02

こんにちは。

VBAとマクロ:

＞たぶんマクロではできないと思うのですが、エクセルにて同一データを持つ行を自動検索して削除していきたいのです。

おっしゃるように、「自動」という意味によっては、厳密な意味で言えば、マクロでは出来ないかもしれません。マクロというのは、ひとつのパッケージになっているわけですから、私たち、Excelユーザーの多くは、マクロでないものも、マクロと呼んでいるわけで、本来、引数を取るものはマクロとは呼びません。

ただ、今の段階では、マクロから始めないと、ラチが開かないように思います。それで、データ量によってコードが決まりますが、作ってみましたが、大量の範囲の場合は、思った以上に、そういう方法に決定するまで試行錯誤してしまいました。

少量の場合。

Sub DoubleDataFindDelete()
Dim c As Range
Dim DeleteRng As Range
Dim myRng As Range
Set myRng = Range("A1", Range("A65536").End(xlUp))
Application.ScreenUpdating = False
For Each c In myRng
　If Not IsEmpty(c) Then
　　 If WorksheetFunction.CountIf(Range("A1", c), c) > 1 Then
　　　　If DeleteRng Is Nothing Then
　　　　　Set DeleteRng = c
　　　　Else
　　　　　Set DeleteRng = Union(DeleteRng, c)
　　　　End If
　　 End If
　End If
Next c
　If Not DeleteRng Is Nothing Then
　　 DeleteRng.Delete
　End If
Application.ScreenUpdating = True
　Set DeleteRng = Nothing
　Set myRng = Nothing
End Sub

'--------------------------------------------
'大量の場合　今回は、25000行で調べました。
'1行目のタイトル行は必要です。
'<標準モジュールのみ>
Sub FilterOptionUsedMethod()
　 Dim myRng As Range
　 Dim mySheet As Worksheet
　 Set mySheet = ActiveSheet

　 Application.ScreenUpdating = False

　 'A列によって重複を探す
　 Set myRng = mySheet.Range("A1", Range("A65536").End(xlUp))

　 myRng.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
　 With mySheet.Range("A1", Range("A1").End(xlDown)).SpecialCells(xlCellTypeVisible)
　　　.EntireRow.Copy
　 End With
　 With Worksheets.Add(After:=Sheets(Worksheets.Count))
　　　.Range("A1").PasteSpecial
　　　mySheet.ShowAllData
　　　mySheet.Range("A1").CurrentRegion.ClearContents
　　　.Range("A1").CurrentRegion.Copy
　　　mySheet.Range("A1").PasteSpecial
　　　Application.DisplayAlerts = False
　　　.Delete
　　　Application.DisplayAlerts = True
　 End With
　 Application.ScreenUpdating = True
　 Application.Goto mySheet.Range("A1")
　 Set myRng = Nothing: Set mySheet = Nothing
End Sub

お礼

わかりづらい質問なのに、こんな短時間で考えて頂いてありがとうございました。
少量データの方のコードでは、だぶっているデータ行を検索することができました。
「新しいマクロの記録」という登録方法ではどうやってもできなかったので、VBAというプログラムを使用しないとだめなんだろうな・・・と思っているだけで、とっかかりがなんともわからず、こちらで相談してみてよかったです。
VBAでどんなことができるのか、おふたかたの例題を糧にさせていただき、これから勉強していきたいと思います。ありがとうございました。