excel - VBA从列表中提取唯一值并在单独的页面上计算它们

Question

好的，这必须是有史以来最简单的问题，但我一直在寻找一段时间，无法弄清楚。我在工作表“Page1_1”(shtData)上有一个很长的值列表，我需要使用它来在“数字”上生成唯一值列表以及每个唯一值的计数。只需复制到“Numbers”(shtNumbers)并删除重复项，手动操作非常简单，但是我使用的 countif 公式非常占用内存，并且完全陷入困境。我有提供唯一列表的代码，但试图获取每个项目的数量让我很困惑

简而言之:我需要代码从“Page1_1”(shtData)A2:数据结尾生成唯一值列表，并将该列表从“Numbers”(shtNumbers)A2开始并向下，然后计算出现次数并列出计数B2 及以下。

当前代码:

shtData.Range("A2:A65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=shtNumbers.Range("A2"), Unique:=True

该代码完美地为我生成了列表。我会发布计数部分的内容，但它根本不起作用，所以我怀疑它是否会有所帮助。

谢谢!

Answer 1

尝试这个:

With shtNumbers

    With .Range(.Range("B2"),.Range("A2").End(xlDown).Offset(,1))

        .FormulaR1C1 = "=COUNTIF(Data!C[-1],RC[-1])" 'change data to actual sheet name

    End With

End With