用vba将乱七八糟的数值转换成标准的日期格式

wkfcoffee · 发表于 2023-7-20 16:33

用chatgpt生成了一段转换日期格式代码（当时提问的内容为：1.将A列数字中含有".""-""/""、"*年*月"等符号的数值，全部更改为"yyyy/mm/dd"格式的日期，并写入B列相应行。2.如果不含有上述符号，且A列数值为4个数字，则在B列相应数据保留原有数值；如果为6位，就将前4位和后2位拆分，并更改"yyyy/mm/dd"格式的日期，写入B列相应行；如果为8位，就将前4位、中2位和后2位拆分，并更改为"yyyy/mm/dd"格式的日期，写入B列相应行。3.将A列为空值的单元格数值，自动在B列相应位置设为空值），运行时总是出错（见下图），或者将1991.03转换成了1900-1-3。敬请大侠出手相助！

未标题-1.jpg

批量替换日期（vba）.rar (15.21 KB, 下载次数: 21)

liulang0808 · 发表于 2023-7-20 17:12

猜着写了一部分，供参考吧，
其他部分楼主按照思路补充吧
有些描述对应不上

x-xx-xx · 发表于 2023-7-20 17:48

正则咯咯咯咯咯咯咯咯咯咯

cidanji · 发表于 2023-7-20 21:19

试一下

批量替换日期（vba）.rar (13.67 KB, 下载次数: 21)

DevilW · 发表于 2023-7-21 00:48

Sub test()
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.Pattern = "((20|19)?\d\d).?(1[0-2]|0?[1-9])?.?(3[01]|[12]\d|0?[1-9])?"
ar = [a1:a103]
For i = 1 To UBound(ar)
'正则替换,去首尾空格并拆分
s = Split(Trim(reg.Replace(ar(i, 1), "$1 $3 $4")))
n = UBound(s)
If n = 2 Then t = Join(s, "/") '年月日齐全处理
If n = 1 Then t = Join(s, "/") & "/1" '缺日处理
If n = 0 Then t = s(0) & "/1/1" '缺月日处理
ar(i, 1) = IIf(Len(s(0)) = 2, 19 & t, t) '二位年份补四位
Next
[b1].Resize(UBound(ar), 1) = ar
End Sub

复制代码

APPLE123 · 发表于 2023-7-21 06:52

cidanji 发表于 2023-7-20 21:19
试一下

请教老师：如果要将最后的输出结果更改为"yyyy-mm-dd"格式的日期，写入B列相应行，请问该如何修改代码？

沈默00 · 发表于 2023-7-21 07:41

这数据够乱的，还是把基础数据做标准点的好，VBA应该去做更重要的事，个人见解

512008404 · 发表于 2023-7-21 07:44

APPLE123 发表于 2023-7-21 06:52
请教老师：如果要将最后的输出结果更改为"yyyy-mm-dd"格式的日期，写入B列相应行，请问该如何修改代码？

在5楼的基础上加一句
[b1].Resize(UBound(ar), 1).NumberFormatLocal = "yyyy-mm-dd;@"

wkfcoffee · 发表于 2023-7-21 08:56

沈默00 发表于 2023-7-21 07:41
这数据够乱的，还是把基础数据做标准点的好，VBA应该去做更重要的事，个人见解

别人报上来，我负责汇总

qdtzq · 发表于 2023-7-21 09:01

采集表加上数据有效性以规范数据

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

[求助] 用vba将乱七八糟的数值转换成标准的日期格式

评分

评分

评分