Excel唯一值finder 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列）的记录数。

这样，具有计数＆gt;的记录1不是唯一的。

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