如何在汉字和数值中间插入指定符号

niko88819

不想升级WPS,又要用旧版OFFICE ,用VBA 自定义函数代码行吗？
行，我就贴出代码，不行就不贴了

nqwl

=REGEXREPLACE(A3,"((?<=[一-龟])(?=\d+))|((?<=\d)(?=[一-龟]))","\*")

szlip

office2007函数功能有限，改用VBA，函数使用灵活。
处理逻辑：
1、数字串和汉字串之间加星号。
2、数字和单个汉字在一起，单汉字前不加星号，单汉字后加星号
（如单量词“件/包/提”的情况，确保数字和单量词配对）
测试效果OK。

szlip

sorry，中间检查 1件*38包*2提 时，漏了38*包，2*提，应为：1件*38包*2提
更正了代码，三种情况都OK！

huihuang6669

1. =REGEXP(A2:A4,"(\W(?=\d)|\d{3,})",2,"\1*")

复制代码

wangli123

要用wps最新版本。