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

或许，你可以把隐藏的列移到最后一列的位置.........

您的代码我测试后，直接的结果是17楼的第一个图，经过撤销和反撤销（即恢复）后，就得到第二个图。。。。。

所以，在你代码后面加上：

Syscmd.Edit.Undo()
Syscmd.Edit.Redo()
for d as integer = 0 to currenttable.count-1
    currenttable(d,0) = currenttable(d,0).trim(" ")
next

此主题相关图片如下：未命名0.jpg

上面的 for......next 是从第一列开始粘贴的，要从任何单元格开始粘贴就要改为：

For c1 As Integer = t.toprow to t.Cols.Count - 1       ‘或t.bottomrow －1
    currenttable(c1,t.LeftCol ) = currenttable(c1,t.LeftCol ).trim(" ")
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

这个是含隐藏列的，请问排除隐藏列的有如何呢？