Excel唯一值查找器VBA宏遗漏了2个值

Question

我正在使用vba宏在特定列中查找唯一值，如下所示：

Function FillInVerantwoordelijken(Sheet As String)

    ThisWorkbook.Sheets("Worksheet").Range("B2:B65000").AdvancedFilter     Action:=xlFilterCopy, CopyToRange:=ThisWorkbook.Sheets(Sheet).Range("A4"), Unique:=True
End Function

据我所知，这应该适用于我拥有的数据，但是目前（我尝试的每一列都需要进行此计算），由于某些原因，它会跳过其中的2个值。 例如，在我应该输出5个值的地方，我得到3。

任何想法？ 这是错误的做法吗？

Answer 1

发现我做了两次删除行，而我忘记了这一点。 当我删除这些行时，它就解决了。 因此，此vba宏可以正常工作！

Answer 2

好吧，我不知道我是否很好地理解了您的问题，但是您可以使用数据透视表来查找唯一值。

1. 创建数据透视表
2. 将该列拖放到数据透视表的行部分中
3. 将数据透视表的值部分中的列拖放到顶部。
4. 按计数顺序降序排列

Excel将计算每个键（您的B列）有多少条记录。

这样，计数> 1的记录就不是唯一的。

有时，我使用此解决方案来发现我的数据集是否具有重复的密钥。