用什么的方法使单元格内某特定字符前可以自动换行？（查找替换行么？）

smilling1314 · 发表于 2012-12-21 22:46

Multifunctional cabinet basket Size(mm): L425*W295*H460 outter cabinet size(mm):350
innner cabinet size(mm):305 Material:Iron Color: chome plated
include bottom-mount slider & bottom frame & 1 pc cutlery holder & 1 pc knife holder

如图，是一个单元格内已经输入的字符。因为之前做的同事输入数据时只是用空键而没有用ALT+ENTER来调位置，使其显示到第二行。单元格的列宽一变时，又挤在一起。有什么方法能使我想特定转行的字符能自动换行。
我想特定转行的字符以下：
1、从Size(mm)开始另起一行
2、从outter cabinet size开始另起一行
3、从innner cabinet size开始另起一行
4、从Material开始另起一行
5、从Color开始另起一行
6、从include开始另起一行
……

用什么方法能办到？用查找替换的方法行么？

目标要弄成这样：

Multifunctional cabinet basket
Size(mm): L425*W295*H460
outter cabinet size(mm):350
innner cabinet size(mm):305
Material:Iron
Color:  chome plated
include bottom-mount slider & bottom frame & 1 pc cutlery holder & 1 pc knife holder

请教各位大侠！成分感谢！

-------------------------------------------------------
我发现发贴后变样了。我还是添加EXCEL来说明吧

转换成自动换行.rar (4.33 KB, 下载次数: 16)

doitbest · 发表于 2012-12-24 16:59

可以实现，回头写一个

doitbest · 发表于 2012-12-25 09:37

Public Sub abc()
Dim ar, i
[a:a].Replace ": ", ":", 2
ar = Range([a1], [a65536].End(3))
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "\s{2,}"
For i = 1 To UBound(ar)
ar(i, 1) = .Replace(ar(i, 1), Chr(10))
Next
End With
[b1].Resize(UBound(ar)) = ar
End Sub

复制代码

doitbest · 发表于 2012-12-25 09:39

请参考附件

blackttea1 · 发表于 2020-5-3 21:16

谢谢分享，做个记号

blackttea1 · 发表于 2021-7-2 08:56

学习了，支持一下！

bajifeng · 发表于 2021-7-2 14:06

replace(s,chr(20),chr(13))

ITNｉｃｈｅ · 发表于 2021-12-24 12:52

doitbest 发表于 2012-12-25 09:39
请参考附件

求助需要把：小儿时期同时存在蛋白尿和血尿的常见疾病是A:肾肿瘤B:急性肾小球肾炎C:肾盂积水D:肾病综合征E:肾结石答案:B
弄成：
13、患儿6岁。3岁时发现有室间隔缺损，当时未手术治疗，最近检查发现有显著的肺动脉高压，这时主要引起下列哪一方面的改变A:肺充血显著B:右心室增大C:左心室增大D:右心房增大E:左心房增大答案:B
晚发型新生儿出血症主要临床表现为
A:呕血
B:肺出血
C:颅内出血
D:黑便
E:血尿
答案:C

		自动登录	找回密码
密码			免费注册

[求助] 用什么的方法使单元格内某特定字符前可以自动换行？（查找替换行么？）