HI，来吧，咱们一起来边练边学FREQUENCY！

丢丢表格

13732120571 发表于 2014-10-13 10:00
1）去重2）排序或数组公式

I64=TEXT(LARGE(IF(FREQUENCY(B$64:B$75,B$64:B$75),B$64:B$75,-1),ROW(A1)),"0;;0")

以防有 0 分出现

极地飞雪007

第三题：


从大到小排序
I64输入普通公式 =IFERROR(LARGE(IF(FREQUENCY($B$64:$B$75,$B$64:$B$75),$B$64:$B$75),ROW(A1)),"")，然后下拉


求和
E64输入普通公式=SUM(IF(FREQUENCY($B$64:$B$75,$B$64:$B$75),$B$64:$B$75))

lfspecter

求和

1. =SUM(IF(FREQUENCY(B64:B75,B64:B75),B64:B75,""))

复制代码

lfspecter

排序

1. =IFERROR(LARGE(IF(FREQUENCY($B$64:$B$75,$B$64:$B$75),$B$64:$B$75),ROW(A1)),"")

复制代码

13732120571

丢丢表格 发表于 2014-10-13 12:31
I64=TEXT(LARGE(IF(FREQUENCY(B$64:B$75,B$64:B$75),B$64:B$75,-1),ROW(A1)),"0;;0")

以防有 0 分出现 ...

谢谢，丢丢老师指正！

1. =TEXT(LARGE($B$64:$B$75-(MATCH($B$64:$B$75,$B$64:$B$75,)<>ROW($1:$12))/1%%,ROW(A1)),"0;")

复制代码

多画了条脚
也麻烦

香川群子

aoe1981 发表于 2014-10-12 22:30
只好来个倒过来的：

对Frequency()工作表函数、进行VBA逆向工程破解，得到如下自定义函数：

=frq([统计对象数据区域 DataRng],[分段点数据区域 BinRng],[输出参数k 缺省=0])

1. Function frq(DataRng, BinRng, Optional k& = 0)
   
2.     Dim i&, j&, m&, n&, r, t
   
3.    
   
4.     '对分段点进行 排除空单元格、去重复、并从小到大排序
   
5.     ReDim bin(BinRng.Count) '定义数组
   
6.     For Each r In BinRng '遍历分段点数据区域
   
7.         t = r.Value
   
8.         If IsNumeric(t) Then '排除空单元格或文字
   
9.             m = m + 1    '统计非空有效分段点个数m
   
10.             For i = 0 To n
    
11.                 If bin(i) > t Then Exit For Else If bin(i) = t Then n = n - 1: Exit For
    
12.             Next
    
13.             If bin(n) = "" Then
    
14.                 For j = n To i + 1 Step -1
    
15.                     bin(j) = bin(j - 1)
    
16.                 Next
    
17.                 bin(j) = t
    
18.             End If
    
19.             n = n + 1 '统计不重复有效分段点个数n
    
20.         End If
    
21.     Next
    
22.     ReDim Preserve bin(n - 1) '排序完成后、按实际不重复有效分段点个数n 缩小区域(这一步可以不做)
    
23.    
    
24.     '以下按去重复排序后的分段点区间，对原始数据进行频数个数的统计
    
25.     ReDim fq&(n) '定义统计结果数组fq 比分段个数+1 （最后1个需要统计>最大分段值的个数）
    
26.     For Each t In DataRng
    
27.         For i = 0 To n - 2
    
28.             If t <= bin(i) Then Exit For '检查到<=某个分段点值时就可以确定
    
29.         Next
    
30.         fq(i) = fq(i) + 1 '在该分段值对应位置统计+1
    
31.     Next
    
32.    
    
33.     '以下把完成的频数统计结果，按分段区域个数+1的形式返回
    
34.     ReDim fc&(m): m = 0
    
35.     For Each r In BinRng '遍历分段值区域 进行检查比对、然后赋值
    
36.         t = r.Value
    
37.         If t <> "" Then '仅需处理非空单元格
    
38.             For i = 0 To n - 1
    
39.                 If bin(i) = t Then fc(m) = fq(i): fq(i) = 0: m = m + 1: Exit For
    
40.                 '遍历查找 相同匹配时返回频数统计结果 并修改=0 （确保仅首次出现的分段值有正确统计结果）
    
41.             Next
    
42.         End If
    
43.     Next
    
44.     fc(m) = fq(n) '最后一个有效位置放入 >最大分段点的频数统计值
    
45.    
    
46.     If k = 0 Then frq = WorksheetFunction.Transpose(fc)  Else If k < 0 Then frq = "#VALUE!" Else If k - 2 < m Then frq = fc(k - 1) Else If k - 1 > BinRng.Count Then frq = "#REF!" Else frq = "#N/A"
    
47. End Function
    

复制代码

输出部分，为大家能明白，在后面的帖子重新做了整理、
各种错误值的设置，是参考实际工作表函数的返回值来设置的。


呵呵。

kuangben8

第三题：如果是按顺序的不重复排序呢？
抛砖引玉下

1. =INDEX(G:G,SMALL(IF(FREQUENCY($G$64:$G$75,$G$64:$G$75),ROW($G$64:$G$75)),ROW(A1)))

复制代码

香川群子

或者输出参数k的处理，按从小到大应该是：

    If k < 0 Then
        frq = "#VALUE!"
    ElseIf k = 0 Then
        'frq = fc '横向一维数组……在同一行内输出多列结果。        frq = WorksheetFunction.Transpose(fc) '按纵向垂直数组输出……在同一列内输出多行结果。
    ElseIf k>0 Then
        If k - 1 <= m Then
            frq = fc(k - 1)
        ElseIf k - 1 <= BinRng.Count Then
            frq = "#N/A"
        ElseIf k-1>BinRng.Count Then
            frq = "#REF!"
        End If
    End If


因为工作表函数在进行数组三键的数组区域公式形式返回结果时，
是按照在同一列内输出多行结果的【垂直数组】方式输出，所以需要把结果的一维数组进行Transpose转置。

看见星光

kuangben8 发表于 2014-10-13 12:49
第三题：如果是按顺序的不重复排序呢？
抛砖引玉下

之后会有一个夹杂着数字、汉字、空格的提取不重复值，且按原有顺序排序。哈哈

aoe1981

排序：

1. =IFERROR(LARGE(IF(FREQUENCY($B$64:$B$75,-(ROW($1:$100)-101))<>0,-(ROW($1:$100)-101),""),ROW(1:8)),"")

复制代码

（不好编辑，只好倒过来，上面是区域数组公式，奇了怪了，感觉本来可以不用数组公式的……）




求和：

1. =SUMPRODUCT(IF(FREQUENCY(B64:B75,ROW(1:99))<>0,1,0),ROW(1:100))

复制代码