有没有excel强人能指点一下怎么用Macro自动fill这种format？

我太有空了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 SubPrivate 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

试了可以work，太牛了！！谢谢！

我太有空了～ 其实不用Macro ~ 貌似来晚了

在A1, A2 分别输入　

9/24/2014 8:00　

9/24/2014 18:00

这2个数值，然后选定A列 Format cell 　使用custom 　设定为 　m/d/yyyy h:mm 　

设定A3单元格函数 =A1+1

从A3右下角鼠标开始往下拖拖拖拖拖拖拖拖拖

就妥了

在A1, A2 分别输入　

9/24/2014 8:00　

9/24/2014 18:00

这2个数值，然后选定A列 Format cell 　使用custom 　设定为 　m/d/yyyy h:mm 　

设定A3单元格函数 =A1+1

从A3右下角鼠标开始往下拖拖拖拖拖拖拖拖拖

就妥了

大叔，你这个方法局限于每个cell的时间相差是12小时哦。。。

没人知道你到底要什么啊那个Script目的不是给你照抄，是提供一些思路。你可以改成什么花样都可以啊。
如果你看不懂那个Script，不明白为什么会出这样的结果，那你离写Script的距离还很远。。。那个Script目的不是给你照抄，是提供一些思路。你可以改成什么花样都可以啊。
如果你看不懂那个Script，不明白为什么会出这样的结果，那你离写Script的距离还很远。。。

谢谢，用这个方法了。。。原来不知道autofill也可以用于对cell的format

我想和大叔学VBA了。。。Scripting 还是很有意思的。

一有麻烦就找百度的飘过小弥留之际小弥留之际

狮城帮藏龙卧虎~~~~~~~~~~