主题：Excel单元格复制过来时变成好几个单元格

处理一下

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=101071&replyID=695003&skin=1

做一个按钮，放入下面的代码。

然后，复制你excel的内容后，点击一下按钮，再粘贴。

Dim str As String = ClipBoard.GetText
Dim nstr As String = ""
Dim tempstr As String = ""
Dim flag As Boolean = False
For i As Integer = 0 To str.length - 1
    If str(i) = """" Then
        If i = 0 OrElse str(i-1) = chr(9) OrElse str(i-1) = chr(10) Then '开始
            flag = True
        ElseIf i = str.length-1 OrElse str(i+1) = chr(9) OrElse str(i+1) = chr(13) Then '结束
            tempstr = tempstr.Replace(chr(13), "")
            nstr &= tempstr
            tempstr = ""
            flag = False
        End If
    End If
    If flag = True Then
        tempstr &= str(i)
    Else
        nstr &= str(i)
    End If
Next
ClipBoard.SetText(nstr)

或者是，你可以把代码写到表格的keydown事件去。但代码要对应改一下

If e.control = True AndAlso e.keycode = keys.v Then
    Dim str As String = ClipBoard.GetText
    Dim nstr As String = ""
    Dim tempstr As String = ""
    Dim flag As Boolean = False
    For i As Integer = 0 To str.length - 1
        If str(i) = """" Then
            If i = 0 OrElse str(i-1) = chr(9) OrElse str(i-1) = chr(10) Then '开始
                flag = True
            ElseIf i = str.length-1 OrElse str(i+1) = chr(9) OrElse str(i+1) = chr(13) Then '结束
                tempstr = tempstr.Replace(chr(13), "")
                nstr &= tempstr
                tempstr = ""
                flag = False
            End If
        End If
        If flag = True Then
            tempstr &= str(i)
        Else
            nstr &= str(i)
        End If
    Next
    ClipBoard.SetText(nstr)
End If