删除重复项并将其值汇总到一行 - Excel报告

Question

所以我想让这个表只显示每个人的1行，并且所有票的总和。现在的方式，Marci多次出现，因为每一行代表不同部门的门票数量（例如#s护理人员门票，#Firefighter门票等等。）我试过“仅限唯一记录”在高级选项卡下，显然这不起作用，因为行不是唯一的。

有人可以帮助我吗？

Answer 1

你需要VBA。围绕这两个概念循环： 1：按字母顺序排序单元格 1：检查相邻单元格是否相等： 2：删除并编号出现，如果为真 3：继续阅读下一行

Sub RemoveAndNumberDuplicates
    Dim r As range
        Set r = Selection
        for N=1 to 100
           IF r.offset(N, 0).value= R.offset(N - 1 - NumOfDeletedLines, 0).value  THEN
             SumOfDupl=SumOfDupl+1 'number of current record instances
             rang.offset(N, 0).Delete (xlShiftUp)
             rang.offset(N, 1).Value=SumOfDupl ' show duplicates in side column
             NumOfDeletedLines=NumOfDeletedLines+1 'needed to correct offset for deleted lines
           Else 
             SumOfDupl=1'restart numbering if no duplicate found
           End If
        Next N
End Sub

这是Excel VBA的一般概念，而不是完整的代码。