删除重复项并将它们的值合并成一行 - Excel报告

Question

所以我想让这张表只显示每一个人的1行，并将它们的所有票据总和。现在，Marci会多次出现，因为每一行代表不同部门的门票数量（例如医护门票数量，FireFighter门票数量等）。我尝试了“唯一记录”在高级选项卡下，显然这不起作用，因为行不是唯一的。

是否有人可以帮助我？

Answer 1

您需要VBA。做一个环上的这2个概念： 1：排序细胞按字母顺序 1：检查是否有平等的相邻小区： 2：删除和数量OCCURENCES如果真 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的一般想法，不是一个完整的代码。