主题：[求助]按条件全选表格

下面代码是全选订单表中的数量列。

With Tables("订单")
    Dim c As Integer = .Cols("数量").Index
    .Select(0, c, .Rows.Count - 1, c)
End With

比如A列是产品名，代码能不能实现——全选产品名称为A的所有数量列？而不符合条件的不选择？