分解A列的数字和文字分别在E、F列输出

ykcbf1100

醉眼看尘世 发表于 2024-8-20 21:06
考虑小数是不是更严谨些

财务上用的项目一般没有小数。
附件中也没看到有小数。

今铭昔

APPLE123

shiruiqiang 发表于 2024-8-20 20:17
最简单的正则式:(\d+)([一-龢]+)

可否请老师帮忙写个完整的代码，谢谢！

APPLE123

无关岁月 发表于 2024-8-20 20:13
Sub 按钮1_Click()
Dim arr, i
arr = Range("a3:f" & [c3].End(4).Row)

谢谢老师帮忙！

APPLE123

醉眼看尘世 发表于 2024-8-20 20:32
函数最简单哇
数字
=LEFT(A3,LENB(A3)-LEN(A3))

如果行数不多，用此公式也很好！谢谢！

APPLE123

gwjkkkkk 发表于 2024-8-20 20:40
Option Explicit
Sub TEST1()
    Dim ar, i&, aMatch As Object

谢谢老师，检测正确

APPLE123

ykcbf1100 发表于 2024-8-20 20:53
正则参与一下。

谢谢老师的帮助，测试结果正确，谢谢！

朝露孤烟

可尝试用CTRL+E智能键快速处理。

APPLE123

醉眼看尘世 发表于 2024-8-20 20:32
函数最简单哇
数字
=LEFT(A3,LENB(A3)-LEN(A3))

老师，您好！
发现：当A列内容为“4009存货“时，公式取值的结果不对，分别为“40”和“存货”
当A列中汉字为4个汉字时，才正确；超过4个汉字，E列取值的结果也不对
可否请老师帮忙再修改一下，谢谢！

沈默00

，
E3=IFERROR(REGEXP(A3:A37,{"\d+","\D+"}),"")