文本转日期

pepsi7777 · 发表于 2023-2-20 10:11

本帖最后由 pepsi7777 于 2023-2-20 12:02 编辑

各位老师好：

A列格式是本本，需转为日期。
我直接将A列设置为日期格式，A2到A9还是文本，必须每个单元格双击一次，才变为日期格式。
可以用VBA自动实现本本转日期吗？
如果有A9非法日期，可以识别吗？
感谢

arsong · 发表于 2023-2-20 10:19

随便找个单元格，里面写1，然后复制这个格子，再选中你的日期，右键选择性粘贴，选“乘"，确定后显示44***的即为日期，没变的是错误的，再设置为日期格式即可。

陆离Lowry · 发表于 2023-2-20 10:20

公式直接=--A2，vba用CDATE

tanglf188 · 发表于 2023-2-20 10:25

杨建营 · 发表于 2023-2-20 10:31

楼主是这样需求吗？

杨建营 · 发表于 2023-2-20 10:32

请解压使用。

ovxyz · 发表于 2023-2-20 11:00

For i = 2 To 9
Cells(i, 4) = IIf(VBA.IsDate(Format(Cells(i, 1), "yyyy/m/d")), Format(Cells(i, 1), "yyyy/m/d"), "错误")
Next

复制代码

ovxyz · 发表于 2023-2-20 11:02

准提部林 · 发表于 2023-2-20 11:02

不用vba//
1)全選A列...設為YYYY/M/D日期格式
2)將"-"替換為"-"...是正確日期的會自動靠右, 非日期文本靠左

WANT-T · 发表于 2023-2-20 11:06

日期格式，只是用来看方便此，用的话还是文本更好，像你这种文本型的日期，直接分列处理下就好了，不用代码的

		自动登录	找回密码
密码			免费注册

[已解决] 文本转日期