作者ptguitar (佩蒂吉他)
看板Office
标题Re: [算表] vba回圈删除类似字眼资料?
时间Mon Jan 8 14:57:32 2018
上次有问类似问题
现在遇到困难就是
遇到超大量资料 数十万笔
而要删除的条件很多
速度很慢
不知道有什麽更快速写法
===
※ 引述《ptguitar (佩蒂吉他)》之铭言:
Sub test001()
Dim YY, XX, ZZ
YY = "*海外分行*"
XX = "*机构名称*"
ZZ = "*工作表*"
For i = [A65536].End(xlUp).Row To 1 Step -1
If Range("A" & i).Text Like YY Or Range("A" & i).Text Like XX Or Range("A"
& i).Text Like ZZ Then
Rows(i).Delete
End If
Next
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 60.250.67.78
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1515394655.A.485.html
1F:→ soyoso: 如以进阶筛选range.advancedfilter,非变数yy、xx、zz的资 01/08 15:17
2F:→ soyoso: 料到其他工作表或范围看是否也符合要保留的资料 01/08 15:17
3F:→ ptguitar: 感谢S大指点~ 01/08 16:29
4F:→ soyoso: 如以筛选的方式,测试了一下以55万笔*5栏的资料,来取符合 01/08 18:37
5F:→ soyoso: 条件为36万8千多笔,时间63~76秒 01/08 18:38
8F:→ soyoso: 相同资料以sql来取,时间27~28秒多 01/08 18:40
10F:→ soyoso: 最後加上a:j删除,时间则为30秒多 01/08 18:40
12F:→ soyoso: 以上是模拟55万笔资料的速度(因电脑而异),如果n大所提供 01/08 18:41
13F:→ soyoso: 方式效率更好的话,就请忽略上述回文 01/08 18:42
14F:→ soyoso: 如可以access来协助取出的话,速度上会更快速 01/08 18:51
15F:推 newacc: s大,我也蛮好奇效率的差别的,方便给个code比较一下吗? 01/08 21:09
16F:→ soyoso: 进阶筛选方面是range.advancedfilter以copy,条件是以g1:i 01/08 21:54
17F:→ soyoso: 2,复制位置k1 01/08 21:55
18F:→ soyoso: 另一个是以以range copyfromrecordset参数data则是以 01/08 21:55
19F:→ soyoso: database.execute来执行sql字串的部分,字串方面则是以 01/08 21:56
20F:→ soyoso: where not like来当条件,筛选不等於的部分 01/08 21:57