如果在一列 直接 按照日期分列：
选中这一列 --数据--分列 --下一步---下一步 --列数据格式 选择 日期 ，点完成 即可
===============
代码:
Sub xxx()
For i = 1 To [a65536].End(xlUp).Row
Cells(i, 1) = CDate(Format(Cells(i, 1), "0000-00-00"))
Next
End Sub
两列在不同单元格的吧？哪用得上VBA……
单元格格式-数字-日期
区域：中阿特拉斯塔马塞特文
然后在类型里找。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024