在行中计数不同的单词，并将计数粘贴到第2页中。
在行中计数不同的单词，并将计数粘贴到第2页中。
提问于 2015-08-08 08:37:49
我有一个Excel列，包含多组数据。我想要找到它中所有不同的记录集的计数，然后在同一个Excel中的第2页单元格中打印它的结果。
客户端 *巴宝莉集团p *CA技术 *CA技术 *CA技术 *CA技术 *CA技术 *CA技术 *CA技术 CSM烘焙解决方案 甲板室外 美泰公司 美泰公司 美泰公司 美泰公司 美泰公司 美泰公司 美泰公司 河床Technol 河床Technol 河床Technol 河床Technol 河床Technol 河床Technol Smurfit Kappa Gr Smurfit Kappa Gr Smurfit Kappa Gr Smurfit Kappa Gr 热Fisher Sc 热Fisher Sc 热Fisher Sc 热Fisher Sc 热Fisher Sc 热Fisher Sc 热Fisher Sc
上面的数据。结果应该是8，因为有8个客户端名称。但这些都会在专栏中重复。
计数结果应打印在第2页单元格中。
回答 2
Stack Overflow用户
发布于 2015-08-08 14:37:25
下面的数组公式将计算Sheet1上A列中的唯一值，然后将结果放在Sheet2上的A1中
Dim s As String
s = "Sheet1!" & Sheet1.Range("A1", Sheet1.Range("A1").End(xlDown)).Address
Sheet2.Range("A1") = Evaluate("=SUM(1/COUNTIF(" & s & "," & s & "))")Stack Overflow用户
发布于 2015-08-08 08:43:17
您可以使用这个VBA代码，假设您的数据在Sheet1!A2:A100中，输出在Sheet2!A1中。
Dim row As Integer, start_row As Integer, end_row As Integer, v As String, concat As String, count_distinct As Integer
start_row=2
end_row=100
concat="~"
For row = start_row to end_row
v=Sheet1.Range("A" & row)
If InStr(concat,v)<=0 Then concat=concat & "~" & v
Next row
count_distinct=UBound(Split(concat,"~"))
Sheet2.Range("A1")=count_distinct计数在count_distinct中，值在Split(concat,"~")中。
但是，您不需要VBA来过滤副本，
只需阅读用excel筛选唯一值中的“删除重复值”部分，它是内置的特性
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/31891280
复制相关文章
相似问题
腾讯云开发者
