Excel工作薄中区域内的值按出现次数提取到同一列的方法

网友投稿 432 2022-11-28

将Excel工作薄中区域内的值按出现次数提取到同一列的方法

对于Excel工作薄中一个包含重复数值的区域,要将其中的数值按出现次数的多少提取到一列,通常可以用包含MODE函数的数组公式。例如数值区域为A1:E10,要将其中的数值提取到G列,如图。

在G2中输入

=MODE(IF(COUNTIF($G:G1,A:E)=0,A:E))

公式输入完毕按Ctrl+Shift+Enter结束,然后拖动填充柄向下填充公式,直到出现“#N/A”为止。

受MODE函数的限制,该公式仅对数值有效,且不能提取只出现一次的数值。要将区域中所有的数据按出现次数提取到一列,可用VBA代码来实现。如将下图A1:E10区域中的文本按出现次数多少提取到G列:

按Alt+F11,打开VBA编辑器,在代码窗口中输入下列代码并运行,即可G列得到按出现次数降序排序的文本,在H列得到对应文本的出现次数。

Sub 按出现次数排序()

Dim d As Object

Dim Arr

Dim i As Integer, j As Integer

Application.ScreenUpdating = False

‘提取不重复值并计算出现次数

Set d = CreateObject("Scripting.Dictionary")

Arr = Range("A1:E10")

For i = 1 To UBound(Arr, 1)

For j = 1 To UBound(Arr, 2)

If Not d.Exists(Arr(i, j)) Then

d.Add Arr(i, j), 1

将Excel工作薄中区域内的值按出现次数提取到同一列的方法

Else

d.Item(Arr(i, j)) = d.Item(Arr(i, j)) + 1

End If

Next

Next

‘输出并排序

Range("G2").Resize(d.Count) = Application.Transpose(d.keys)

Range("H2").Resize(d.Count) = Application.Transpose(d.items)

Range("G2:H2").Resize(d.Count).Sort key1:=Range("H2"), Order1:=xlDescending

Set d = Nothing

Application.ScreenUpdating = True

End Sub

说明:如果文本出现的次数相同,将按先行后列的顺序依次提取

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:Excel指定位置的单元格引用的OFFSET函数使用基础教程
下一篇:word文档姓名怎么按笔画排序
相关文章