主题：[求助]关于移动多行

请问，用select选中多行后

如何用move命令使其移动到指定位置?

呵呵，其实移动多行，并非真的移动多行，这样效率太低，本质还是移动一行而已。

例如你需要向下移动选定的多行，只是将这多行的下一行移动到这个多行的第一行位置，向下移动多行：

Dim t As Table =  Tables("表A")
Dim p1 As Integer = t.TopPosition
Dim p2 As Integer = t.BottomPosition
If  p2 < t.Rows.count -1
     t.Rows(p2+1).Move(p1)
     t.Select(p1+1,t.LeftCol,p2+1,t.RightCol)
End If

至于向上移动，你可以参照写一下。