为了跑公司资料分析自己透过vba简单写了一段整理raw data格式
目前已可正常执行省下大量人工处理的时间
但其中有一段做逐行判断会跑特别久
即便是在最新的i7四核笔电上跑，有时还是会跑到无回应...
因此想请教是否有较有效率的写法
经过分段测试，跑最久的是这段
资料量约近万笔(列)、每笔约100+字段(栏)

没什么好办法，你顶多可以改用loop...until抱歉上面跳过，那没什么用顶多把cells(r,2)="WW"放前面 或干脆分开写 看会不会比较快 你要检查4-100行是不是都0 唯一的办法就是全都看过一次 一万列就是97万格 不可能多快又者我很怀疑叫用工作表函数的效率 你可以多用一个for来检查是不是都0 看是快还是慢

可以加abs()函数,让所有4至100栏的数字必为正值

你需要的是加Application.Calculation=xlCalculationManual应该可大符提升速度

你可以先把要删除的列数记下来，最后再一次删除应该会快点Sheet1.Range("2:3,5:5").Delete shift:=xlUp另外可以用CountIF的函数我认为慢的部分应该是删除的部分而不是判断式的部分

用specialcells

如果不删,将该列复制到另一个工作表,最后删除原始工作表不知道会不会比较快

先移动到最下面再一次删除应该可以省时间?!

多加入一栏，下公式判断是否要删除，最后针对该栏筛选筛选出来后一次删除 这样或许会比较快判断全为零 min=0 and max=0 如果资料都是数值的话