如何对一个区域的数字统计相同的个数

飞越一切

单列的我会用 数据透视表 ，按照区域就不会了，EXCEL版本是2007版



区域各数据统计.rar (22.13 KB, 下载次数: 17)

2024-3-25 16:45 上传

点击文件名下载附件

jivy1212

A列前插入一空列----ALT+D P---多重合并---选择A:M列---调整情况见下图

无关岁月

1. =INDIRECT(TEXT(MIN(IF(COUNTIF(N$1:N1,A$2:L$10)=0,ROW($2:$10)/1%+COLUMN(A:L))),"r0c00"),)

复制代码

1. =COUNTIF(A:L,N2)

复制代码

cnmlgb9998

用PQ一步到位，都不需要手工代码的。不香？？？？？？？？？？？

飞越一切

jivy1212 发表于 2024-3-25 17:03
A列前插入一空列----ALT+D P---多重合并---选择A:M列---调整情况见下图

大神，你这最后调整是咋调的，怎么调，行标签下面只有9个项目

leepoison

1. =COUNTIF($A$2:$L$10,Q1)

复制代码

飞越一切

cnmlgb9998 发表于 2024-3-25 17:14
用PQ一步到位，都不需要手工代码的。不香？？？？？？？？？？？

这个不会啊

飞越一切

无关岁月 发表于 2024-3-25 17:10

大神，只能统计第一个单元格的

飞越一切

jivy1212 发表于 2024-3-25 17:03
A列前插入一空列----ALT+D P---多重合并---选择A:M列---调整情况见下图

大神，谢谢，我会了

swl4561255

1. Sub test()
   
2. Dim a As Range
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For Each a In Range("A2:L10")
   
5. d(a.Value) = d(a.Value) + 1
   
6. Next
   
7. k = d.keys
   
8. t = d.items
   
9. [N1:O1] = Array("行标签", "计数项")
   
10. [N2].Resize(d.Count, 1) = Application.Transpose(k)
    
11. [O2].Resize(d.Count, 1) = Application.Transpose(t)
    
12. Set d = Nothing
    
13. End Sub
    

复制代码