同一行数据多次出现，如何求和并删除

xm592

各位大佬，标题解释不清楚，大家请直接看图，是否可以现实，请各位帮忙，非常感谢！

xm592

目前我只能想到使用数据透视可以达到简单的求各，以身份证号码为行，消费为值，然后求和，但是如何现实行标签不只是身份证，旁边还有姓名呢。

eqzh

做个数据透视表，基本的分类求和，

gykg-excel

可以使用数据透视表。

Jaofuan

1. Sub jaofuan()
   
2.     For i = 4 To 100
   
3.         If WorksheetFunction.CountIf(Range("b:b"), Cells(i, 2)) > 1 Then
   
4.             x = WorksheetFunction.CountIf(Range("b:b"), Cells(i, 2))
   
5.             For p = i To x + (i - 1)
   
6.             
   
7.                 j = Cells(p, 4).Value + j
   
8.             Next
   
9.             Rows(i).Resize(x - 1).Delete:
   
10.             Cells(i, 4) = j: j = 0
    
11.         End If
    
12.     Next
    
13. End Sub

复制代码

xm592

Jaofuan 发表于 2019-6-12 10:58

使用代码有点高级哦，我估计要琢磨好久才能搞明白，感谢，我尝试一下。

xm592

gykg-excel 发表于 2019-6-12 10:52
可以使用数据透视表。

我一开始也想用数据透视表，但是使用过程中遇到了困难，就是把身份证和姓名作为“行”，消费作为“值”后，身份证和姓名不是分别两例，而是在同一例里面，前面有一个“+”、“-”收缩展开的符合，请教如何才成变成你上传的附件中那样呢。

xm592

gykg-excel 发表于 2019-6-12 10:52
可以使用数据透视表。

我总摸索出来了，如何把同行的数据分别以不同例显示出来，谢谢啦