如何用VBA 删除EXCEL 中重复的数据（日期相差一天之后的，第一笔数据保留）

如题
例子如下：
674E01630 2011-12-1 1113
674E01630 2011-12-2 2055

674E01630 2011-12-5 1105
674E01630 2011-12-6 1125
674E01630 2011-12-7 1140
674E01630 2011-12-8 1160
674E01630 2011-12-9 1165

删除后保留：
674E01630 2011-12-1 1113
674E01630 2011-12-5 1105


请问老鸟们，大侠们，高手们 如何实现啊 ，小弟在此谢过了，搞定一定加分，在此谢谢。。我想了一天了没个结果。

以674E01630列作第一关键字,2011-12-1列作为第二关键字排序,然后写个比较函数,一样的日期大于1天就删.

VB code

'
' Macro1 Macro
' 宏由 微软用户 录制，时间: 2011-11-24
'

'
    Range("B5").Select
    Application.WindowState = xlMinimized
    Rows("4:4").Select
    Selection.Delete Shift:=xlUp
    Rows("5:5").Select
    Selection.Delete Shift:=xlUp
    Rows("5:7").Select
    Selection.Delete Shift:=xlUp
    Range("B13").Select

好像 674E01630 2011-12-2 2055
没有被删除，但是我要的是动态的，下面还有好多数据，关键是我删除一行之后，下面的行会往上移动，这样行就会变，我也写了一个FOR循环，帮忙看看，还要改，
‘=====================================
For j = 2 To s
  date1 = Format(xlsheet.Cells(j, 2), "YYYYMMDD")
  date2 = Format(xlsheet.Cells(j + 1, 2), "YYYYMMDD")
  If xlsheet.Cells(j, 1) = xlsheet.Cells(j + 1, 1) Then
  If date2 - date1 = 1 Then
  xlsheet.Select
  xlsheet.Rows((j + 1) & ":" & (j + 1)).Select
  Selection.Delete Shift:=xlUp
  End If
  End If
  Next j
’========================================

大侠都没有，在那去了

悲剧，居然没人来，那我就自己想，或许上传数据库可以搞定