admin 管理员组

文章数量: 1087835


2024年3月29日发(作者：c语言编程手机软件)

y1 = 1 '开始列号

y2 = 5 '结束列号，根据实际要查重的数据列数确定，修改

x = 2

n1 = 255 '辅助列位置

n2 = y2 + 2 '结果显示列，结果显示在源数据列的右侧，中间间隔一列。

For i = y1 To y2

s = Cells(65536, y1).End(xlUp).Row '各列数据的数量

Range(Cells(1, i), Cells(s, i)).Copy Cells(x, n1) '把所有数据复制到辅助列中

x = x + s

Next

Cells(1, n1) = "数据": Cells(1, n2 + 1) = "次数"

'使用“高级筛选”功能将不重复数据显示在“结果显示列”中

Columns(n1).AdvancedFilter 2, , Cells(1, n2), 1

s1 = Cells(65536, n2).End(xlUp).Row

'下面代码用COUNTIF函数统计重复次数

For i = 2 To s1

Cells(i, n2 + 1) = f(Columns(n1), Cells(i, n2))

Next

'消除辅助列内容

Columns(n1) = ""


本文标签： 数据 辅助 结果显示

版权声明：本文标题：excel自动统计重复项及重复次数 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1711678848a605183.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。