作者：乔山办公网日期：
返回目录：excel表格制作
1、首先在开百发工具中打开VBA编辑器。
2、在单元格区域当中输度入一些问内容作为例子。
3、在VBA编辑器中插入模块答。
4、在模块当中输入如下代码，然后运行。
5、在A列输入“6-15”格回式之数据，单元格将返回“2007年6月15日星期五”，答而在其他列输入则忽略。
如果在一列 直接道 按照日期分列：
选中这一列 --数据内--分列 --下一步---下一步 --列数据格式 选择 日期 ，点完成 即可容
===============
代码:
Sub xxx()
For i = 1 To [a65536].End(xlUp).Row
Cells(i, 1) = CDate(Format(Cells(i, 1), "0000-00-00"))
Next
End Sub
你的rng是文本格式，改为format(rng*1,"yyyy/mm/dd")
不需要代码
把B列数据复制到记事本
再把B列格式设置成 YYYY/M/D HH:MM:SS格式
最后从记事本把数据考回来就可以了
如果在VBA中直接使用的话，加一个datevalue转换下就好了