你要先选择要排除重复值的列:
Dim c as integer = Tables("表名").Cols("列名").Index
Tables("表名").Select(Tables("表名").RowSel,c)
Syscmd.Filter.HideSameValues()