Excel如何用VBA实现单元格内遇到1、2、3、4、这样的就自动换行？

vistababy

Excel如何用VBA实现单元格内遇到1、2、3、4、这样的自动换行？

比如下面这个图。我运行一下代码，就变成图2的样子了，不用我在里面一个一个地Alt+回车键手动换行。。
谢谢！






后续：
尤其感谢6楼的代码！让我认识了正则式
我经过不断地优化（附件及代码在32楼），目前已经可以对以下情况进行自动换行处理：
①1、2、3、4、5……
②1，2，3，4，5，……
③（1）（2）（3）（4）（5）……
④【1】【2】【3】【4】【5】……
⑤<1><2><3><4><5>……
⑥＜1＞＜2＞＜3＞＜4＞＜5＞……
⑦[1][2][3][4][5]……
上面的③至⑦后面如带有，、也能处理。
①至⑦如果出现1、2、3、4、5号楼这样连续的，不会进行换行处理。
⑧对1.2.3.4.5这种小数点进行换行处理，连续的不换行，如果是2.5×4.0=10.0这样的计算式也不会换行。
⑨顺便对一、二、三、这类进行了处理。

效果如下：





---------

shiruiqiang

没附件，猜测可以把chr(10)替换掉

x-xx-xx

正则替换？遍历字符？

gwjkkkkk

请上传附件。。。

半百

供参考

gwjkkkkk

正则法，供参考。。。

vistababy

半百 发表于 2024-2-2 23:42
供参考

这思路我想过，不会写vba，感谢大佬

vistababy

gwjkkkkk 发表于 2024-2-3 09:32
正则法，供参考。。。

正则法好厉害哦。。感谢大佬

cjc209

vistababy 发表于 2024-2-3 10:25
正则法好厉害哦。。感谢大佬

再厉害 你不会写等于0

vistababy

先感谢6楼的代码。。
虽然不懂正则式，但这正则式怎么看起来感觉有些像通配符？？随便学习了一下，等于看一点学一点，还是继续按照6楼的代码修改，别的楼代码看起来好复杂，继续弄我的正则式试试。代码每段都类似。
序号已经可以无限量了，原来只支持11以下，顺便支持了一下中文（比如一、二、三、这种）。
数字后或两边符号已经支持  ， 、（）【】 <>  ＜＞  [ ]，对于“3、5、6、7号楼” “（1）（2）（3）（4）楼”这种也能处理，不会换行，也能支持数字后小数点换行了，且不影响带小数点的数字。
具体功能可以看1楼，现在的代码修改得基本上差不多了，2.6号中午1点半就不能再改此回复了。。


效果如下：


代码超长了，具体请看30楼。





补充内容 (2024-2-6 19:32):
32楼