我太有空了
Private Sub test()
date1 = DateValue("16/09/2014")
date1 = date1 + 1 / 3
For i = 1 To 10
Cells(i, 1) = date1
date1 = date1 + 0.5
Next i
End Sub
Private Sub test()
date1 = DateValue("16/09/2014")
date1 = date1 + 1 / 3
For i = 1 To 10
Cells(i, 1) = date1
date1 = date1 + 0.5
Next i
End Sub