查看全部回答
我太有空了Private Sub test()date1 = DateValue("16/09/2014")date1 = date1 + 1 / 3For i = 1 To 10Cells(i, 1) = date1date1 = date1 + 0.5Next iEnd 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