[已解决]统计排序

oplkj · 发表于 2012-2-13 14:44

Book2.xls22.rar (3.44 KB, 下载次数: 19)

happym8888 · 发表于 2012-2-13 15:35

"结果是要按从小到大排在d列"，请问重复次数需要归类吗？还是不管是重复几次、只要是在重复2到5次范围内的数字，都统一按从小到大排列吗？

雄鹰 · 发表于 2012-2-13 15:43

本帖最后由雄鹰于 2012-2-13 15:45 编辑

=TEXT(LARGE(IF(COUNTIF($D$6:$W$10,$D$6:$W$10)>1,--($D$6:$W$10),9999),SUM(--(IF(COUNTIF($D$6:$W$10,$D$6:$W$10)>1,--($D$6:$W$10),9999)>(F19*1)))),"[=9999]! ;000")
重复统计与排序.jpg

因d列有数据，你也可以放在其它位置，然后下拉。

oplkj · 发表于 2012-2-13 15:48

雄鹰发表于 2012-2-13 15:43
=TEXT(LARGE(IF(COUNTIF($D$6:$W$10,$D$6:$W$10)>1,--($D$6:$W$10),9999),SUM(--(IF(COUNTIF($D$6:$W$10,$D ...

公式太不方便我有

zjdh · 发表于 2012-2-13 15:49

条件筛选.rar (10.23 KB, 下载次数: 22)

oplkj · 发表于 2012-2-13 16:35

zjdh 发表于 2012-2-13 15:49

当设置成大于0时运行不了,有时也要用到这个条件,

zjdh · 发表于 2012-2-13 16:53

Sub TEST()
Set d = CreateObject("scripting.dictionary")
For Each RN In Sheets("SHEET1").Range("D6:W10")
      If Not d.exists(RN.Value) Then
         d.Add RN.Value, 1
      Else
         d(RN.Value) = d(RN.Value) + 1
      End If
Next
k = d.Keys
S = d.Items
ReDim ARR(1 To UBound(S) + 1)
For I = 0 To UBound(S)
      If S(I) > 0 And S(I) < 6 Then
         T = T + 1
         ARR(T) = k(I) * 1
      End If
Next
ReDim M(1 To T)
For I = 1 To T
      M(I) = Format(Application.Small(ARR, I), "000")
Next I
Sheets("SHEET1").Range("D20:D65536").ClearContents
Sheets("SHEET1").Range("D20").Resize(T, 1) = Application.Transpose(M)
End Sub

		自动登录	找回密码
密码			注册

[已解决]统计排序

相关帖子