有偿求助，第二次来这里，已经付费一次，用代码删除重复行

liren009

绝对会付费，删除重复行，内容在附件里面，自己看

如果有完全相同的行，即单元格文本，完全一样，那么请不要用OFFICE自带功能“删除重复行”，那有太傻，容易删错，我要求删除符合条件的重复行。
    请不要用函数和公式来弄，我要求用编程代码来实现，即从第一行开始，用第一行和工作薄任意一行对比，如果A列，B列，C列，D列，E列，F列，G列的
对应的单元格内容都一样，那么就是完全重复，就请删除所有重复的行，只留一下一行，特别注意，经常会有4行重复的，5行倒是不多见。

如果A列，B列，C列，D列完全一样，E列和G列不一样，那么请留下任意一行，但是请把删除的行的E列和G列的值，加给剩下那行。比如蓝色的，
你可以删除上面3行，但是最后一行的E列是200+400+300+100=1000，G列=2+4+3+1=10
所以，请用程序代码，逐行对比，逐列对比，发现列ABCDEFG对应单元格完全一样的，就删除所有重复行，只留一行。这一步一定要先做，
先做了删除重复行，就不会出现“土黄色”中那种情况，不会出现24行和25行一样的情况。
做了删除重复行的事情，再来一遍第二个条件的重复行编程就可以了（E列，G列不一样，把值加过去，再删除）
简单说来就是两步：第一步：用编程代码删除重复行；
第二步：用编程代码删除近似重复行，并且赋值
先后顺序不能乱

我没时间去编程，如果有兴趣，可以看看别人做类似的代码：http://club.excelhome.net/thread-1222396-1-1.html
记得做完了，别把宏加密了，因为我还要添加其他的宏进去

liren009

[img][/img]

liren009

有能力做出来的，有意愿的，加我QQ1992928400，加的时候注明：编程接单，就可以。最好能在WPS2016专业版上运行，运行速度要求要快，之前网友做的，在EXCEL2010上运行很快，在EXCEL2013和WPS2016上运行宏就太慢了

未忘初心

看看是不是这样

不知道为什么

哈哈，此贴必火啊

liren009

未忘初心 发表于 2018-6-22 11:57
看看是不是这样

大概是这样，但是你弄错顺序了，我要分两步，第一步，删除所有完全相同的行，第二步再把EG列不同的赋值，加过去，你自己看看你的，最后那几行，加成900，其实要先把24行和25行，其中任意一行删掉，再把剩下的，ABCD列相同，EG不同的加在一起

魂断蓝桥

a-g 列 distinct 一下

然后再 sum数量是不是就可以了。

魂断蓝桥

Sub 查询()
Dim cnn As Object
Dim Sql As String, sh As Worksheet
Set cnn = CreateObject("ADODB.CONNECTION")
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
Sql = "select distinct * from [sheet1$a1:g] where 支数 is not null"
Sql = "select 单据号码,产品型号,货品型号,子件描述,sum(订单数量),仓库,sum(支数) from (" & Sql & ")" _
        & " group by 单据号码,产品型号,货品型号,子件描述,仓库"
Application.DisplayAlerts = False
For Each sh In Sheets
    If sh.Name <> "Sheet1" Then
        sh.Delete
    End If
Next
Sheets.Add after:=Sheets(1)
Application.DisplayAlerts = True
Sheet1.[a1:g1].Copy [a1]
[a2].CopyFromRecordset cnn.Execute(Sql)
cnn.Close: Set cnn = Nothing
End Sub
返回结果

单据号码	产品型号	货品型号	子件描述	订单数量	仓库	支数
MLD-180330-003	TF9139D-8	B52904100279	套管D28*60*T0.8/镀韩国金	80	[52] 电镀仓	3
MLD-180330-003	TF9139D-8	B52934103823	铝车件美的/D27*H16/中M10内牙/韩国金	3	[52] 电镀仓	3
MLD-180330-003	TF9139D-8	B52934103930	压铸战鼓铝件D45*30*H20/中孔12.5/镀韩国金	30	[52] 电镀仓	5
MLD-180330-003	TF9139D-8	B52934106563	锁扣6厘/29*59/韩国金	6	[52] 电镀仓	6
MLD-180330-003	TF9139D-8	B52934110979	酒杯盖D32*10/中孔10.5/韩国金	31	[52] 电镀仓	12
MLD-180405-003	TF9139D-8	B52904100279	套管D28*60*T0.8/镀韩国金	80	[52] 电镀仓	3
MLD-180606-001	TF5211D-6	B52934128589	TF5211铝车件D37*10/中孔16.5/上下凹卡口D32*1/韩国金	1000	[52] 电镀仓	10

liren009

能做成按钮吗？在原工作表中，新建一个工作簿，里面有个按钮，就是一个工作簿，都是空的，什么都没有，就只有一个删除重复行的按钮，删除重复行要求对至少7个工作薄有效。如果能做出来，带按钮的，你可以发过来，我测试一下，我的附件不是我要弄的表，只是测试。如果你可以的话，我再给你真正的表单，再谈费用问题。