批量删除指定字段后，删除重复行保留唯一值且对应数量列求和。。。。

sd3301621

各位老师大家好，有两个问题想请教一下。
1、附件中，D列数据如图（较多），想把所有单元格的后缀“-国内”、“国外”、“-团内”、“-团外”删除，其余字段保留。
2、删除后会出现相同数据，相同数据对应的E列值进行累加后删除相同数据的行，保留唯一值。
麻烦各位了

lsdongjh

split  ，字典，简单的应用而矣

sd3301621

@lsdongjh  可以麻烦您写一下吗？字典还没接触过...麻烦您了

sheeboard

用pandas写的，参考

1. import pandas as pd
   
2. df=pd.read_excel('file',header=None)
   
3. 
   
4. def drop_str(x):
   
5.     a=x.split('-')
   
6.     if len(a)>1:
   
7.         del a[-1]
   
8.     return ''.join(a)
   
9. 
   
10. df[0]=df[0].apply(drop_str)
    
11. 
    
12. grouped=df.groupby(df[0])
    
13. result=grouped[1].unique()
    
14. result=result.reset_index()
    
15. result[1]=result[1].apply(lambda x: sum(x))
    
16. 
    
17. result.to_excel('out.xlsx',header=None,index=False)
    

复制代码

Chip_Kenny

推荐讀一下藍老師的常見字典用法集錦及代碼詳解 http://club.excelhome.net/thread-868892-1-1.html

1. Sub zz()
   
2. Dim a As Variant, d As Object, k, t
   
3. a = [d2].CurrentRegion.Value
   
4. [d2].CurrentRegion.ClearContents
   
5. Set d = CreateObject("scripting.dictionary")
   
6. For i = 1 To UBound(a)
   
7.     k = Split(a(i, 1), "-")(0)
   
8.     If Not d.exists(k) Then
   
9.         d(k) = a(i, 2)
   
10.     Else
    
11.         d(k) = d(k) + a(i, 2)
    
12.     End If
    
13. Next
    
14. k = d.keys: t = d.items
    
15. [d2].Resize(d.Count, 2) = Application.Transpose(Array(k, t))
    
16. End Sub

复制代码

sd3301621

@sheeboard  对不起，您写的我甚至连怎么放进模块都不知道...

sheeboard

sd3301621 发表于 2018-7-26 12:48
@sheeboard  对不起，您写的我甚至连怎么放进模块都不知道...

不是vba，是python，不过有很多库可以让excel执行python脚本的。
结果，图片传不上来。

1. In [59]: result
   
2. Out[59]:
   
3.            0    1
   
4. 0   A2132133   55
   
5. 1     A21334  857
   
6. 2  G52152156   74
   
7. 3  H54115212   33
   
8. 4    H545657  152
   
9. 5   L5415419  123
   
10. 6  P54541541   72
    
11. 7   S5554251  123
    
12. 8   Z3541551  562
    

复制代码

sd3301621

Chip_Kenny 发表于 2018-7-26 12:47
推荐讀一下藍老師的常見字典用法集錦及代碼詳解 http://club.excelhome.net/thread-868892-1-1.html

老师您好
使用了您的代码它提示下标越界是什么意思呢？
k = Split(a(i, 1), "-")(0)
还有再麻烦您 不需要保留原来列的数据，直接覆盖就好了，怎么操作呢，谢谢

sd3301621

sheeboard 发表于 2018-7-26 13:00
不是vba，是python，不过有很多库可以让excel执行python脚本的。
结果，图片传不上来。

还是很感谢您，您说的台高大上了，真的操作不来。

Chip_Kenny

sd3301621 发表于 2018-7-26 18:37
老师您好
使用了您的代码它提示下标越界是什么意思呢？
k = Split(a(i, 1), "-")(0)

沒有實際數據, 猜是有空數據吧, 加入一個判斷看看。

1. Sub zz()
   
2. Dim a As Variant, d As Object, k, t
   
3. a = [d2].CurrentRegion.Value
   
4. [d2].CurrentRegion.ClearContents
   
5. Set d = CreateObject("scripting.dictionary")
   
6. For i = 1 To UBound(a)
   
7.     If Len(a(i, 1)) > 0 Then
   
8.         k = Split(a(i, 1), "-")(0)
   
9.         If Not d.exists(k) Then
   
10.             d(k) = a(i, 2)
    
11.         Else
    
12.             d(k) = d(k) + a(i, 2)
    
13.         End If
    
14.     End If
    
15. Next
    
16. k = d.keys: t = d.items
    
17. [d2].Resize(d.Count, 2) = Application.Transpose(Array(k, t))
    
18. End Sub

复制代码