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