主题：右一列

Dim t As Table = Tables("表A")

 

默认第一列：

t.Select(0,0)

 

左一列
If t.ColSel > 0 Then
    t.Select(0,t.ColSel - 1)
End If

 

右一列
If t.ColSel < t.Cols.Count - 1 Then
    t.Select(0,t.ColSel + 1)
End If