主题：精确查找与筛选后指定行去重（不是删除，是隐藏起来）

各位大侠，有两个问题：1.精确查找，在模糊查找的基础上代码如何改？

If h12.Value <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "科目 Like '%" & h12.Text & "%'"
End If

2.筛选后表格对指定行去重复值（不是删除，只是隐藏起来，需要的时候查询还能出来）

DataTables("订单").DataCols("数量").Filter.HideSameValues()，这样写一直报错，说不存在行

系统内的去重代码是：Syscmd.Filter.HideSameValues()怎么改写？