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

vistababy

准提部林 发表于 2024-2-3 20:33
來個進階版//不複雜...比正則更容學習...只在"斷句"而已...會用 mid/left 即可//

只要见到顿号就换行，还要改进。另外，能不能支持1.2.3.4.5.自动换行，但不能把带小数点的数字换行。

vistababy

我还是继续按照6楼的代码修改，弄我的正则试试。
序号已经可以无限量了，符号支持（）【】 <>  ＜＞  [ ]，也能支持数字后小数点换行了，且不影响带小数点的数字。

cai2532

这个代码值得学习。

准提部林

vistababy 发表于 2024-2-3 22:03
只要见到顿号就换行，还要改进。另外，能不能支持1.2.3.4.5.自动换行，但不能把带小数点的数字换行。

...

1) 頓號//可用 IF V ="" THEN 去排除開頭不是數字而略過
    V = Mid(Val(1 & X), 2)
    If V = "" Then GoTo j01

2) 1. 2. ~形式, 本來就容易與其它小數弄混, 試試以下句子:
    1.預計到2055.12月止, 中国將達20.5亿人口
   __"."它不是個可靠的分段符號

文本處理沒有"通吃"的本領, 只有適實適用~~
不知你的正則代碼改到哪個樣子了？？？

vistababy

准提部林 发表于 2024-2-4 10:09
1) 頓號//可用 IF V ="" THEN 去排除開頭不是數字而略過
    V = Mid(Val(1 & X), 2)
    If V = "" Th ...

几乎完美，不但对连续的序号不换行，而且小数点也能处理，不乱换行。看下面效果：

cjc209

vistababy 发表于 2024-2-4 12:37
几乎完美，不但对连续的序号不换行，而且小数点也能处理，不乱换行。看下面效果：

这些都要根据具体环境和具体情况确定 不是一层不变的 只要知道方法就ok了

vistababy

cjc209 发表于 2024-2-4 12:43
这些都要根据具体环境和具体情况确定 不是一层不变的 只要知道方法就ok了

我可能想做一个完美的。。遇到各种情况，一用，成功率99%，基本上不用自己手动处理。。就OK了

cjc209

vistababy 发表于 2024-2-4 12:49
我可能想做一个完美的。。遇到各种情况，一用，成功率99%，基本上不用自己手动处理。。就OK了

你不可能做到面面俱到 还有些是特殊需求的 重要的是方法 就是在需要的字符前加上换行符就ok了

vistababy

cjc209 发表于 2024-2-4 13:06
你不可能做到面面俱到 还有些是特殊需求的 重要的是方法 就是在需要的字符前加上换行符就ok了

哦。。极端的情况，我不管了，只要满足99%的情况就行。
以前我还做了一个对excel所有单元格自动行高的功能，发现网上的无一完美，显示的时候正常，一打印或打印预览就缺行、缺半个字，我后来找到一个好一些的，然后就是不停地改，拿几十上百个别人的表格文件（要求行数多、字数多那种，几十行甚至几百行）不断地试验，现在几乎随便弄一个文件，自动行高，打印都不会缺字，一行一行人工检查或使用excel本身的自动行高功能根本就是不行的。一些表格不要看着不缺字，一打印就到处缺，excel所见即所得还是不太行。

vistababy

效果：





代码见32楼附件。