| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于单元格换行问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84156) |
| -- 作者：jialihaha -- 发布时间：2016/4/24 13:38:00 -- 关于单元格换行问题 在程序表里，单元格数据为 1 2 3 如何让其复制到excel 单元格里， 也可以在一个单元格里显示着， 而不是变为三行
|
| -- 作者：大红袍 -- 发布时间：2016/4/24 15:18:00 -- 参考代码
Dim str As String = ClipBoard.GetText |
| -- 作者：jialihaha -- 发布时间：2016/4/25 11:09:00 -- 请问代码原理是什么 |
| -- 作者：大红袍 -- 发布时间：2016/4/25 11:10:00 -- 在字符前后加入双引号，如 "单元格内容" |
| -- 作者：jialihaha -- 发布时间：2016/4/25 11:14:00 -- 为什么加双引号他就可以单元格内换行？ |
| -- 作者：大红袍 -- 发布时间：2016/4/25 11:14:00 -- Excel里面的要求。 |
| -- 作者：jialihaha -- 发布时间：2016/4/25 11:16:00 -- 不行，有bug 如果我程序表里复制了三行数据，他都变一行了
|
| -- 作者：大红袍 -- 发布时间：2016/4/25 11:23:00 -- Dim str As String = ClipBoard.GetText msgbox(str) str = str.replace(vbcrlf, chr(11)) msgbox(str) Dim nstr As String = "" For Each s As String In str.Split(chr(13)) nstr &= """" & s & """" & vbcrlf Next nstr = nstr.Replace(chr(11), vbcrlf) msgbox(nstr) ClipBoard.SetText(nstr)
|
| -- 作者：jialihaha -- 发布时间：2016/4/25 11:30:00 -- 还不行，你两种情况混合起来测一下 |
| -- 作者：大红袍 -- 发布时间：2016/4/25 11:31:00 -- 测试没问题啊。 |