要根据名称而不是位置选择的话,参考:
http://www.foxtable.com/help/topics/0569.htm
例如选定第十列整列:
With Tables("表A") Dim c As Integer = .Cols("第十列").Index .Select(0,c,.rows.count - 1,c)End With