简单一点这样写
Tables("选择产品_table1").Select(-1,Tables("选择产品_table1").Cols("产品名称").Index)Syscmd.Filter.HideSameValues()