如何将Excel工作薄中区域内的值按出现次数提取到同一列的方法
时间:2022-04-30 14:57:42
对于Excel工作薄中一个包含重复数值的区域,要将其中的数值按出现次数的多少提取到一列,通常可以用包含MODE函数的数组公式。例如数值区域为A1:E10,要将其中的数值提取到G列,如图。
在G2中输入:
=MODE(IF(COUNTIF($G$1:G1,A$1:E$10)=0,A$1:E$10))
公式输入完毕按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
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
说明:如果文本出现的次数相同,将按先行后列的顺序依次提取
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
重装Win10系统找不到硬盘怎么解决?
![](https://img.aspxhome.com/file/2023/1/52321_0s.png)
excel提取空格前后数据小技巧
![](https://img.aspxhome.com/file/2023/7/38147_0s.jpg)
为什么打开word出错,word文档打开出错?
![](https://img.aspxhome.com/file/2023/2/22092_0s.jpg)
excel表格加减乘除的运算方法
Word中进行段落设置的操作方法
如何设置Word2010中从其他程序粘贴时的格式
![](https://img.aspxhome.com/file/2023/5/29945_0s.jpg)
怎么删除Word 2010库中不需要的自定义内容
![](https://img.aspxhome.com/file/2023/7/21907_0s.jpg)
iOS 14 收到的信息没有自动进行分类怎么办?
![](https://img.aspxhome.com/file/2023/2/46152_0s.png)
如何将word表格转换为文本
![](https://img.aspxhome.com/file/2023/8/32918_0s.jpg)
word中竖向输入文字的方法图解教程
iOS端Office新预览版发布:引入离线PDF阅读等诸多新功能
![](https://img.aspxhome.com/file/2023/0/16730_0s.jpg)
在Word文档里插入Excel的方法
Excel拆分单元格的方法图解步骤
Win10夜间模式不能使用怎么办?Win10夜间模式不能使用的解决方法
![](https://img.aspxhome.com/file/2023/7/52477_0s.jpg)
Word怎么把文字转换成表格
![](https://img.aspxhome.com/file/2023/6/17196_0s.jpeg)
excel2003多窗口显示的教程
Excel表格怎么加密
Win10系统没有指纹解锁设置选项怎么办?
![](https://img.aspxhome.com/file/2023/9/50379_0s.jpg)
excel表格内容进行分行操作的方法
怎样使用Word2010的屏幕截图功能插入图片
![](https://img.aspxhome.com/file/2023/3/30143_0s.jpg)