主题：求删除冗余值的代码

求删除冗余值的代码

老师您好，我删除冗余值的是采用三步，用显示冗余值

Tables("表A").RepeatFilter("第一列", 2)

然后手工选定筛选后的所有行，再用删除选定多行的代码

With Tables("表A")

    For i As Integer = .BottomPosition To .TopPosition Step - 1

        .Rows(i).Delete()

    Next

End With

请问老师有没有完整代码直接删除冗余值，只保留排除重复值后的行，不再用手工分步操作了