求excel大师的帮助！谢谢大师了。我有一个很棘手的excel的统计问题 属于分类统计的吧

Posted 2023-03-24

有很大一组表格数据，大概有一万多的名字信息。
具体工作是这样的，比如
小明 12 女 1969-05-11
小明 12 女 1969-05-11
小明 12 女 1969-05-11
小明 12 女 1977-06-20
小张 13 女 1977-06-20
小张 13 男 1988-05-19
小张 13 男 1988-05-19
小兰 16 女 1979-03-13
小兰 16 女 1979-03-13
小兰 16 女 1979-03-13
小兰 16 女 1979-03-13
小兰 16 女 1980-3-13
小花 34 男 1990-4-24
小花 34 男 1990-4-24
小花 34 男 1990-4-24
小花 34 男 1990-4-24
小花 34 男 1990-4-24
小会 12 女 1908-4-22
小会 12 女 1908-4-22
小会 12 女 1908-4-22

数据类似于上面我举的例子，每个人姓名出现的次数有2，3,4或其他次数，现在需要把出现次数相同的名字（还有其他的身份信息，比如年龄，如果两个人名字相同。但是年龄不同，也要把这两个人分开）统计到一个表格里面，并且只留下一个名字，最后希望达到的效果如下：
出现三次的：
小张 13 女 1977-06-20
小会 12 女 1908-4-22
出现四次的：
小明 12 女 1977-06-20
出现五次的：
小兰 16 女 1979-03-13
小花 34 男 1990-4-24
这三类存放在不同的表格或sheet里面，由于数据很多，希望能有一个方便简洁的方法，谢谢！
很急，在线等，如果可以用，立刻采纳给分

'工作表标签→右键→查看代码，把下面代码贴到VBE中，按F5，把第一张表的结果处理到第二张表。

Sub Cheifzjh()

Application.ScreenUpdating = False

Dim Col%, i%, Tmp$, mArr, Dic

Set Dic = CreateObject("scripting.dictionary")

For i = 1 To [a65536].End(3).Row

    mArr = Cells(i, 1).Resize(1, 4)

    Tmp = Join(WorksheetFunction.Index(mArr, 1, 0), ",")

Dic(Tmp) = Dic(Tmp) + 1

Next i

With Sheet2

    .Activate

    .Cells(1, 1).Resize(Dic.Count, 1) = WorksheetFunction.Transpose(Dic.items)

    .Cells(1, 2).Resize(Dic.Count, 1) = WorksheetFunction.Transpose(Dic.keys)

    .Cells(1, 1) = "次数"

    .Range("b:b").TextToColumns comma:=True

    .Range("a1").CurrentRegion.Sort Key1:=.[a1], Order1:=xlAscending, header:=xlYes

    .[a1].Select

End With

Application.ScreenUpdating = True

MsgBox "人次" & WorksheetFunction.Sum(Dic.items) - 1 & "   不同记录数：" & Dic.Count - 1

Set Dic = Nothing

End Sub

汇总效果如图

参考技术A 用数据透视表统计出次数.并按次数排序.
如果不同次数在10以内,分别复制粘贴到不同工作表.

如果次数有100种,可以用vba完成重复工作. 参考技术B 先用countif在最后一列计数，计算该行数据出现了几次，再排序，把出现次数相同的归在一起，复制到另一个表格里，然后用筛选将重复部分筛除。追问

能说的具体一点吗？函数我用不太好

参考技术C 使用index,small,if,函数的组合。 参考技术D 把文件发给我，我试试，方法虽然想出来了但是没用过，需要先试验
我的qq信箱 [e-mail]追问

不好意思，因为涉及到个人信息，所以文件不能给您，希望您谅解啊，不过方法可以具体说一下吗

第5个回答  2011-07-01 用数据透视表统计，根据姓名、出生年月统计次数