主题：当从EXECL中一次性地复制多列数据到当前表中的时候

获得剪贴板中的字符的方法：

Dim s As String = System.Windows.Forms.ClipBoard.GetText()

接下来用Split拆分成行，每一行再用Split拆分成列，再逐个写入单元格。

你自己先尝试一下，这些都是很好的锻炼机会，实在搞不定，我再帮你写个。

我在C版的基础上改一下

粘贴排除隐藏列：

Dim t As Table = CurrentTable
Dim s As String = System.Windows.Forms.ClipBoard.GetText()
Dim Lines() As String = s.split(chr(13) & chr(10))
Dim Count As Integer = Math.Min(Lines.Length , t.Rows.Count - t.TopPosition) - 1
For n As Integer = 0 To Count
    Dim Line() As String = Lines(n).Split(chr(9))
    Dim r As Integer = t.TopPosition + n
    Dim vp As Integer = 0
    For c As Integer = t.LeftCol to t.Cols.Count - 1
        If t.Cols(c).Visible Then
            If vp < Line.Length  Then
                t.Rows(r)(c) = Line(vp)
            End If
            vp = vp + 1
        End If
    Next
Next

粘贴考虑隐藏列：

Dim t As Table = CurrentTable
Dim s As String = System.Windows.Forms.ClipBoard.GetText()
Dim Lines() As String = s.split(chr(13) & chr(10))
Dim Count As Integer = Math.Min(Lines.Length,t.Rows.Count - t.TopPosition) - 1
For n As Integer = 0 To Count
    Dim Line() As String = Lines(n).Split(chr(9))
    Dim r As Integer = t.TopPosition + n
    Dim vp As Integer = 0
    For c As Integer = t.LeftCol to t.Cols.Count - 1
        If vp < Line.Length  Then
            t.Rows(r)(c) = Line(vp)
        End If
        vp = vp + 1
    Next
Next

改一下：

Dim t As Table = CurrentTable
Dim s As String = System.Windows.Forms.ClipBoard.GetText()
Dim Lines() As String = s.split(chr(13))
Dim Count As Integer = Math.Min(Lines.Length,t.Rows.Count - t.TopPosition) - 1
For n As Integer = 0 To Count
    Dim Line() As String = Lines(n).Trim(chr(10)).Split(chr(9))
    Dim r As Integer = t.TopPosition + n
    Dim vp As Integer = 0
    For c As Integer = t.LeftCol to t.Cols.Count - 1
        If vp < Line.Length  Then
            t.Rows(r)(c) = Line(vp)
        End If
        vp = vp + 1
    Next
Next