[已解决]修改宏

dong66094799

高级筛选(2).rar (346.2 KB, 下载次数: 5)

2011-8-23 22:25 上传

点击文件名下载附件

请 放浪形骸 帮忙 谢谢!

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-8-23 23:58

dong66094799 发表于 2011-8-23 22:25
请 放浪形骸 帮忙 谢谢!

1. On Error Resume Next
   
2. Sheets("不重复数据").Range("a2").Resize(k1, 2) = ""
   
3. Sheets("不重复数据").Range("a2").Resize(k1, 2) = arr3
   
4. Sheets("不重复数据").Range("A" & k1 + 2).Resize(60000 - k1, 2).Clear
   
5. Sheets("重复数据").Range("a2").Resize(k, 2) = ""
   
6. Sheets("重复数据").Range("a2").Resize(k, 2) = arr2
   
7. Sheets("重复数据").Range("A" & k + 2).Resize(60000 - k, 2).Clear

复制代码

把原来IF后的代码修改成这个。

1. Sheets("不重复数据").Range("A" & k1 + 2).Resize(60000 - k1, 2).Clear

复制代码

你原先设定了ARR的大小为60000，所以如果没有数据的话也会自动填充空值进去，那么就把多余的内容给清除掉。

而没有重复数据的时候，你的K的值未设定，所以宏报错，那么就可以用

1. On Error Resume Next

复制代码

来忽略错误跳过就可以了。

跳转到最佳答案楼层

roboby

你将文件加密，挺不错的。

dong66094799

发给专人的 已经说明了 谢谢

放浪形骸

dong66094799 发表于 2011-8-23 22:25
请 放浪形骸 帮忙 谢谢!

1. On Error Resume Next
   
2. Sheets("不重复数据").Range("a2").Resize(k1, 2) = ""
   
3. Sheets("不重复数据").Range("a2").Resize(k1, 2) = arr3
   
4. Sheets("不重复数据").Range("A" & k1 + 2).Resize(60000 - k1, 2).Clear
   
5. Sheets("重复数据").Range("a2").Resize(k, 2) = ""
   
6. Sheets("重复数据").Range("a2").Resize(k, 2) = arr2
   
7. Sheets("重复数据").Range("A" & k + 2).Resize(60000 - k, 2).Clear

复制代码

把原来IF后的代码修改成这个。

1. Sheets("不重复数据").Range("A" & k1 + 2).Resize(60000 - k1, 2).Clear

复制代码

你原先设定了ARR的大小为60000，所以如果没有数据的话也会自动填充空值进去，那么就把多余的内容给清除掉。

而没有重复数据的时候，你的K的值未设定，所以宏报错，那么就可以用

1. On Error Resume Next

复制代码

来忽略错误跳过就可以了。

放浪形骸

同时，我感觉初始设置三个从1 to 60000, 1 to 2的数组太占内存了。
应该还有更好的办法的。
不过我暂时还没想到。

wanghx8866

那位高手师傅教教我如何把写好的宏放到表格中，