作者skating (X-Tracker 法克祺)
看板Office
标题[算表] VBA 大量资料处理
时间Fri Sep 15 10:00:11 2017
软体:Excel
版本:2010
i=2
Do
If XXX then
J=2
Do
IF XXX then
Exit Do
End IF
J=J+1
Loop Until len(Worksheets("工作表2").Cells(J,1).Value)=0
End If
I=I+1
Loop Until len(Worksheets("工作表1").Cells(I,1).Value)=0
工作表1,2皆有近2万笔
每次都跑到当掉，请问这有解吗??
除了把资料导入资料库以外
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 59.120.143.229
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1505440814.A.8FB.html
1F：→ soyoso: 想法为内层判断如果是储存格符合某值就exit do来看，以 09/15 10:52
2F：→ soyoso: range.find或工作表函数match来回传储存格或列号 09/15 10:52
3F：→ soyoso: 该储存格以上的范围为原po要执行其他动作 09/15 10:52
4F：→ soyoso: 就应可将do loop until len(worksheets("工作表2")... 09/15 10:52
5F：→ soyoso: 取消掉 09/15 10:52
6F：→ soyoso: 外层判断如果是储存格符合某值而执行接下来动作的话 09/15 10:52
7F：→ soyoso: 回圈於autofilter可见储存格range.specialcells集合 09/15 10:53
8F：→ soyoso: 、range.find或工作表函数match(需调整范围) 09/15 10:53
9F：→ soyoso: 来针对於符合的储存格执行 09/15 10:55
10F：推 lowcat: 在内层回圈加入 docents 就能减少没回应问题，再来就是 09/16 12:39
11F：→ lowcat: 减少使用cells比对cells，就能稍微提高速度 09/16 12:39
12F：→ soyoso: docents是什麽？google excel vba docents并没看到相关的 09/16 13:10
13F：→ soyoso: 是要提doevents这个函数吗 09/16 13:12
14F：推 lowcat: 对啦 doevents 字打错了，感谢纠正 09/16 21:45