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

liren009 · 发表于 2018-6-22 15:41

魂断蓝桥发表于 2018-6-22 14:45
Sub 查询()
Dim cnn As Object
Dim Sql As String, sh As Worksheet

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

未忘初心 · 发表于 2018-6-22 15:45

看看是不是这样

liren009 · 发表于 2018-6-22 15:52

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

这样运行不了啊，你自己试过没有？思路是这样的，但是那个按钮要放到新建的工作薄去

liren009 · 发表于 2018-6-22 15:54

未忘初心，你给我的，都运行不了

分别再WPS2016专业版和EXCEL2010中，都不能运行你的按钮哦

魂断蓝桥 · 发表于 2018-6-22 16:04

liren009 发表于 2018-6-22 15:41
能做成按钮吗？在原工作表中，新建一个工作簿，里面有个按钮，就是一个工作簿，都是空的，什么都没有，就 ...

至少对七个工作簿有效，此话如何理解？

未忘初心 · 发表于 2018-6-22 16:07

工作簿1(Bak)81543.rar (21.33 KB, 下载次数: 2) 看看是不是这样 O(∩_∩)O
启动不了是因为你没启用宏

liren009 · 发表于 2018-6-22 16:07

魂断蓝桥发表于 2018-6-22 16:04
至少对七个工作簿有效，此话如何理解？

因为我给你发的附件，是测试的，不是我真正要编程的表，真正的表有7个工作薄需要进行“删除重复行”的处理，所以希望你用代码，可以编程，做成宏，然后告诉我怎么运行，运行了就可以把工作表中工作薄12345和7进行“删除重复行”处理，不需要对其他工作薄进行处理，运行完了之后，再单独对工作薄7进行一次处理。因为其他宏会让工作薄7又一次生成重复行。

liren009 · 发表于 2018-6-22 16:14

未忘初心发表于 2018-6-22 16:07
看看是不是这样 O(∩_∩)O
启动不了是因为你没启用宏

开启了的，我的WPS是专业版，有授权用宏，EXCEL也可以用宏，我之前的编程都是用宏的，信任中心，都设置好了的

liren009 · 发表于 2018-6-22 16:15

未忘初心，你的程序不能运行呢，我开启了宏的

yylucke · 发表于 2018-6-22 16:15

此帖不火，天理难容！
真的可以再开一个板块：函数及代码自贸区

		自动登录	找回密码
密码			免费注册

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