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

sd3301621

各位老师大家好，有两个问题想请教一下。
1、附件中，D

列数据如图（较多），想把所有单元格的后缀“-国内”、“国外”、“-团内”、“-团外”

删除，其余字段保留。

2、删除后会出现相同数据，相同数据对应的E列值进行累加后删除相同数据的行，保留唯一值。

麻烦各位了

之前有发过同样的帖子，但是没有完美解决，时间比较紧，请各位老师帮帮忙，谢谢

jnsxmt

删除后D列会出现重复值，把所有重复值对应E列的在库数量进行累加，然后删除D列重复值所在的行。36行与38行相同，因涉及到C列，你删除36行还删除38行呢

sd3301621

jnsxmt 发表于 2018-7-27 12:20
删除后D列会出现重复值，把所有重复值对应E列的在库数量进行累加，然后删除D列重复值所在的行。36行与38行 ...

老师您好，只要保留第一次出现的值就好了，谢谢

jnsxmt

1. Option Explicit
   
2. 
   
3. Sub test()
   
4.     Dim reg, ar, br(), m&, n&, k&, q&, p&, dic
   
5.     On Error Resume Next
   
6.     Set dic = CreateObject("scripting.dictionary")
   
7.     ar = Range("c6:e" & Cells(Worksheets("数据").Rows.Count, "c").End(xlUp).Row)
   
8.     Set reg = CreateObject("vbscript.regexp")
   
9.     With reg
   
10.         .Global = True
    
11.         .Pattern = "[-团内|-团外|-国内|-国外]"
    
12.     End With
    
13.     For m = LBound(ar, 1) To UBound(ar, 1)
    
14.         ar(m, 2) = reg.Replace(ar(m, 2), "")
    
15.     Next
    
16.     For n = LBound(ar, 1) To UBound(ar, 1)
    
17.     If Not dic.exists(ar(n, 2)) Then
    
18.         k = k + 1
    
19.         dic(ar(n, 2)) = ar(n, 3)
    
20.         ReDim Preserve br(1 To k)
    
21.         br(k) = ar(n, 1)
    
22.     Else
    
23.         dic(ar(n, 2)) = dic(ar(n, 2)) + ar(n, 3)
    
24.     End If
    
25.     Next n
    
26.     [g6].Resize(k, 1) = Application.WorksheetFunction.Transpose(br)
    
27.     [h6].Resize(k, 1) = Application.WorksheetFunction.Transpose(dic.keys)
    
28.     [i6].Resize(k, 1) = Application.WorksheetFunction.Transpose(dic.items)
    
29. End Sub
    
30. 
    

复制代码

sd3301621

jnsxmt 发表于 2018-7-27 16:04

哇 老师真是太感谢您了，问题完美解决了！
谢谢谢谢！

sd3301621

jnsxmt 发表于 2018-7-27 16:04

老师您好，不好意思又麻烦您。
代码运行了以后把所有的“-”都删除了，能不能仅删除"[-团内|-团外|-国内|-国外]"这样的后缀，其他的“-”不删除呢？谢谢了

jnsxmt

把这句：  .Pattern = "[-团内|-团外|-国内|-国外]"

更换为：  .Pattern = "-[团国][内外]"

sd3301621

jnsxmt 发表于 2018-7-30 11:29
把这句：  .Pattern = "[-团内|-团外|-国内|-国外]"

更换为：  .Pattern = "-[团国][内外]"

真的是太感谢您了，目前您给的代码一大部分还理解不了，我还会继续努力的学习的。
谢谢