求一个汉字年月日转数字年月日的自定义函数

天狼骑士2013

向大佬们求一个汉字年月日转数字年月日的自定义函数。

zpy2

=webservice("http://e.anyoupin.cn/eh3/?bigtonum~七十一")

=webservice("http://e.anyoupin.cn/eh3/?preg_match~[\p{Han}]+(?=年)~十一年十一个月")

可以试试这二个函数

然后再 & 连接起来。

zxsea_7426

天狼骑士2013

YYDS,太牛了

582766

zxsea_7426 发表于 2022-12-10 20:40

大哥是个狠人，为了这个需求，写那么多过程 膜拜

天狼骑士2013

我看都看不懂

天狼骑士2013

zpy2 发表于 2022-12-10 20:30
=webservice("http://e.anyoupin.cn/eh3/?bigtonum~七十一")

=webservice("http://e.anyoupin.cn/eh3/?p ...

没看明白，单元格引用都没有

zxsea_7426

天狼骑士2013 发表于 2022-12-10 23:22
我看都看不懂

思路：
第一步，从字符串中提取代表数字的中文字段：
比如：十一年十一个月中截取出两段"十一"

第二步，替换进原字符串(同步进行将两段"十一"转换成11)

准提部林

Sub TEST_A1()
With [a:a]
     For i = 99 To 1 Step -1
         T = Application.Text(i, "[DBNum1]")
         .Replace T, i, Lookat:=xlPart
     Next i
     .Replace "十", 1, Lookat:=xlPart
End With
End Sub

zpy2

天狼骑士2013 发表于 2022-12-11 00:00
没看明白，单元格引用都没有

第一步，从字符串中提取代表数字的中文字段：
比如：十一年十一个月中截取出两段"十一"

第二步，替换进原字符串(同步进行将两段"十一"转换成11)

就是这个思路

https://club.excelhome.net/forum.php?mod=viewthread&tid=1570729&mobile=

参考5楼带入 单元格地址