エクセルVBAにて教えて下さい。

質問

WindowsMeエクセル2000を使用しています。
業務で使用していのですが、自分には知識が無く困っています。
どなたか分かるかた教えて下さい。宜しくお願い致します。

エクセルで下記のようなデータが有ります。

Ａ列　Ｂ列
１　　東京
２　　大阪
１　　千葉

下のコマンド実行ではＡ列で（1）が重複したので、後ろの業（千葉）を残し
前の業（東京）を削除します。
結果

Ａ列　Ｂ列
２　　大阪
１　　千葉

これを逆に東京を残し、千葉を削除したいのですが、

Ａ列　Ｂ列
１　　東京
２　　大阪

どのようにすれば良いのでしょうか？

Sub CommandButton2_Click()
Dim key As String
Dim RCnt As Long
Dim i As Long
key = "A1"
Worksheets("sheet1").Activate
ActiveSheet.Range(key).Select
Selection.Sort key1:=Range(key), order1:=xlAscending
RCnt = ActiveSheet.Range(key).CurrentRegion.Rows.Count
For i = 1 To RCnt
With ActiveCell
If .Value = .Offset(1, 0).Value Then
Selection.EntireRow.Delete
Else
.Offset(1, 0).Select
End If
End With
Next i
End Sub

回答No.1

nishi6 · ベストアンサー

提示されているマクロでは、

　１　東京
　２　大阪
　１　千葉
　　　↓
　１　千葉
　２　大阪

になるはずです。A列でソートして上下の行を比較しています。この方法を質問にあるように変更するには

　下から７行目の

　　Selection.EntireRow.Delete
　　　　↓
　　.Offset(1, 0).EntireRow.Delete

　にすればいいと思います。

お礼

本当に有難うございます。
早速実行してみると、自分の思うデータが作成できました。
セルの行数で1000行位あったので、困っていましたが、
これから楽にできます。

本当に有難うございました。