主题：关于单元格换行问题

参考代码

 

Dim str As String = ClipBoard.GetText
msgbox(str)
str = """" & str & """"
msgbox(str)
ClipBoard.SetText(str)

 在字符前后加入双引号，如 "单元格内容"

 Excel里面的要求。

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)

 

测试没问题啊。

 没问题啊

哦，如果是多列，还要再改一改

 

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))
    For Each ss As String In s.Split(chr(9))
        If ss.IndexOf(chr(11)) >= 0 Then
            nstr &= """" & ss & """" & chr(9)
        Else
            nstr &= ss & chr(9)
        End If
    Next
    nstr &= vbcrlf
Next
nstr = nstr.Replace(chr(11), vbcrlf)
msgbox(nstr)
ClipBoard.SetText(nstr)

 

我测试，没问题啊。