急求！！！大神请来

魇殇

如附件中，如何把单元格a2中的文字格式变成a10中的格式？

AVEL

1. Function cf(r As Range)
   
2.     Application.Volatile
   
3.     If r.Count > 1 Then Exit Function
   
4.     sstr = Mid$(r.Text, 1, InStr(r, "|"))
   
5.     cf = Mid$(Join(Split(r, sstr), Chr(10) & sstr), 2)
   
6. End Function

复制代码

AVEL

勾选 自动换行
EH(AVEL)_test.rar (11.21 KB, 下载次数: 3)

2014-1-22 11:23 上传

点击文件名下载附件

魇殇

AVEL 发表于 2014-1-22 11:23
勾选 自动换行

谢谢啦   非常的感谢   

魇殇

AVEL 发表于 2014-1-22 11:22

看不太明白，能不能帮忙解释下

戒盈

左对齐+怎么换行+强制换行（在需要换行的地方同时按ALT+ENTER)

AVEL

魇殇 发表于 2014-1-22 16:15
看不太明白，能不能帮忙解释下

1. Function cf(r As Range)
   
2.     Application.Volatile
   
3.     If r.Count > 1 Then Exit Function
   
4.     sstr = Mid$(r.Text, 1, InStr(r, "|"))
   
5. '取得 “朱菊芳| ”字符
   
6.     cf = Mid$(VBA.Replace(r.Text, sstr, Chr(10) & sstr), 2)
   
7. ' 替换  “朱菊芳|”为 换行符+“朱菊芳|“ 。
   
8. '   cf = Mid$(Join(Split(r, sstr), Chr(10) & sstr), 2)
   
9. End Function

复制代码