http://www.foxtable.com/help/topics/0550.htm
'选定第三行的数量单元格With Tables("订单") Dim c As Integer = .Cols("数量").Index .Select(2,c,2,c)End With