重複した行を削除する(AdvancedFilter)

以前に重複データ削除でも紹介したが、今回はAdvancedFilterを使ってリストから削除するマクロを。
e0080122_825479.gif

Sub 重複削除()
 Range("a1").CurrentRegion.AdvancedFilter action:=xlFilterCopy, _
 copytorange:=Range("E1"), unique:=True
End Sub

今回は同一シートのE1セルに放出したが、場合に応じて他のシートに表示させてもいいと思う。
ActionxlFilterInPlaceを指定すれば、その位置で実行される。
ここでのポイントはUniqueTrueを指定し重複した行を無視して抽出する点だろうか。
[PR]
by slayer0210 | 2005-12-26 08:35 | マクロ


<< 年齢計算 IFのような使い方のCHOOSE >>