株銘柄コード 重複行を削除するマクロを教えてください

質問

1.環境　winxp pro sp2, office2003,
2.やりたい事
株　銘柄コードと銘柄名称　list があります。
銘柄コード：上位4桁固定
銘柄コードをチェックして、重複行を削除するマクロを教えてください。最初に出てきた行を残し、後から出てきた行を削除します。
　　A列　B列
1　6502　東芝
2　6502 （株）東芝 ----------削除
3　6784　プラネックス
4　3778　さくらインターネット
5　3778　さくらインターネット株式会社-----削除
6　8991　ライフステージ
...........　
よろしくお願いします。

回答No.2

zap35 · ベストアンサー

＃０１です。マクロの最後から二行目は以下に修正して下さい

Application.ScreenUpdating = True

お礼

ご指摘の方法、両方やってみました。これで十分です。
ありがとう御座いました。

回答No.1

zap35

マクロを利用するまでもなくＣ１に
=COUNTIF(A$1:A1,A1)
と入力して、下にコピーすると各銘柄コードの出現回数（何番目）が計算されますからオートフィルタで２以上の行を絞り込んで行削除するのが簡単に思います

マクロが良いならこんな感じでしょうか。マクロは標準モジュールシートに貼り付けて下さい。

Sub Macro()
Dim idxR As Long
　Application.ScreenUpdating = False
　idxR = Range("A65536").End(xlUp).Row
　Do While idxR > 1
　　If Application.CountIf(Range("A:A"), Cells(idxR, 1)) > 1 Then
　　　ActiveSheet.Cells(idxR, 1).EntireRow.Delete
　　End If
　　idxR = idxR - 1
　Loop
　Application.ScreenUpdating = False
End Sub