excelマクロの重複セルの削除について

excelマクロ超初心者です。

Ｅ列に下記のようにデータが入っていたとします。

　　Ｅ列
１　いちご
２　りんご
３　みかん
４　いちご
５　りんご
６　れもん

これを重複セルを削除して
　　Ｅ列
１　いちご
２　りんご
３　みかん
４　れもん

としたいのですが、どうすればいいでしょうか？
自分なりに調べて、下記のように記述したのですが、

Sub test()
lastRow = wb.Sheets("Sheet1").Range("E" & Rows.Count).End(xlUp).Row 'E列最終行
For i = lastRow To 2 Step -1
If Cells(i, 5).Value = Cells(i - 1, 5).Value Then
Cells(i, 5).EntireRow.Delete Shift:=xlUp
End If
Next i

End Sub()

Ｅ４列から下のデータしか重複セルが削除されません。
ここでいうlastRow To 2 Step -1はどういう意味なのでしょうか？
すみませんが宜しくお願いします。

No.2 ベストアンサー 回答者： tom04 回答日時： 2012/03/16 16:59

こんにちは！

＞Ｅ４列から下のデータしか重複セルが削除されません
の原因と
＞lastRow To 2 Step -1はどういう意味なのでしょうか？
の意味はすでに回答されていますので・・・

一例です。

Sub test()
Dim i As Long
For i = Cells(Rows.Count, 5).End(xlUp).Row To 2 Step -1
If WorksheetFunction.CountIf(Range(Cells(1, 5), Cells(i, 5)), Cells(i, 5)) > 1 Then
Cells(i, 5).Delete (xlUp)
End If
Next i
End Sub

※　行すべてを削除ではなく、E列セルのみ削除がご希望ですよね？
※　重複行すべてを削除の場合は
＞Cells(i, 5).Delete (xlUp)
を
＞Rows(i).Delete (xlUp)
としてみてください。

こんな感じではどうでしょうか？m(__)m

No.1 回答者： hallo-2007 回答日時： 2012/03/16 12:57

＞ここでいうlastRow To 2 Step -1はどういう意味なのでしょうか？

については
http://officetanaka.net/excel/vba/tips/tips14.htm
の最後の方に説明されています。

＞Ｅ４列から下のデータしか重複セルが削除されません。
記述されているコードでは
同じ内容が、連続してある場合に削除ではないでしょうか？
If Cells(i, 5).Value = Cells(i - 1, 5).Value Then
の部分の意味をよく考えて見てください。

重複を削除する方法が
http://www.eurus.dti.ne.jp/yoneyama/Excel/vba/vb …
にいくつも説明されていますが
わかりやすいのは、フィルターオプションの機能を利用した方法ではないでしょうか。