如何将EXCEL多列比较后重复的数据按重复的次数排列到另一列上

Question

如题所述

Answer 1

公式处理怕是很麻烦，尤其还设计区域去重
可以加几个辅助列就简单了
VBA如果编写好也是很简单的追问

能帮忙写个吗？？

追答

Sub test()
Dim arr, i&, j&
Dim d As Object
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
d(arr(i, j)) = d(arr(i, j)) + 1
Next
Next
[e1].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, items))
End Sub
这样就好了，你排列一下F列就对了，F列是重复次数！

追问

我的是WPS下载N个VBA都不能用·····是什么情况

追答

WPS 中VBA是收费的

追问

下载的是破解版的！！

追答

WPS就是坑 建议使用OFFICE

追问

有没有你尝试安装OK的版本介绍··我装了几个版本都装不上！！能把OFFICE和VBA安装包发到我5 1 5 3 8 5 4 6 7 @ q q .c o m吗？

Answer 2

追问

这样很麻烦···有没有简便的方法？谢谢

追答

不要看到公式长就觉得麻烦
其实就只是很简单的一个关联，只要你将区代码（如$A$1:$G$100)复制进去就可以了