vba比较日期大小，定义日期；vba让excel保存

Private Sub CommandButton1_Click()
Dim i, j As Integer
Dim a As Date
a = #10/1/2013#
j = 2
i = 2
' If  Worksheets("改后B").Range("a" & CStr(i)) = Worksheets("改后A").Range("a" & CStr(j)) And Worksheets("改后B").Range("b" & CStr(i)) = Worksheets("改后A").Range("b" & CStr(j)) And Trim(Worksheets("改后B").Range("c" & CStr(i))) = Trim(Worksheets("改后A").Range("c" & CStr(j))) And Trim(Worksheets("改后B").Range("d" & CStr(i))) = Trim(Worksheets("改后A").Range("d" & CStr(j))) Then
'  MsgBox DateDiff("d", Worksheets("改后B").Range("a" & CStr(560)), 2013 - 10 - 1)
  'End If

For i = 2801 To 3500
  j = 2
   While Worksheets("改后A").Range("a" & CStr(j