Excel 2010按string筛选以防止通过删除重复项来删除它们

我有一个列表，有时有重复的东西，通常会删除重复删除没有问题。 这一次，我发现我有一个常用的string，不希望任何这些string被删除，如果他们有相同的金额。 代码就像

Dim Rng As Range Dim Rw As Long Rw = Cells(Rows.Count, 1).End(xlUp).Row ActiveSheet.AutoFilterMode = False Set Rng = Range("A3:K" & Rw) With Rng .AutoFilter .AutoFilter Field:=1, Criteria1:="<>*Discount*", Operator:=xlAnd End With ActiveSheet.Range("$A$1:$C$1000").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes ActiveSheet.AutoFilterMode = False 

此代码隐藏“折扣”，但当它删除重复它跳过filter，并删除它们。 从数据显示到Excel，他们是完全一样的，但数据来自QuickBooks，我需要所有的折扣，使一切正常加起来。

Answer 1

一种方法：

在开始或结束时对折扣进行sorting。

过滤隐藏折扣的数据。

使用Selection.SpecialCells(xlCellTypeVisible).Select 。select一切不是折扣。

删除所选范围的重复项。

删除重复项和sorting不适用于多个范围，因此在一个块中获得折扣而不select它们是非常重要的。