[已解决]这个代码速度慢怎么解决

KDZ

请问：这个代码速度太慢怎么解决？

最佳答案

月排行榜 / 总排行榜

qh8600

2014-10-22 10:25

1. Sub 替换DIV0为空() '这个#DIV/0!
   
2. On Error Resume Next
   
3. Dim RG As Range, x
   
4. x = Sheets("1").Cells(Rows.Count, 1).End(3).Row
   
5. For Each RG In Range("A1:AE" & x)
   
6. RG.Cells.SpecialCells(xlCellTypeFormulas, xlErrors) = ""
   
7. Next RG
   
8. End Sub

复制代码

把最下面非空单元格的行数赋值给变量X

把5000替换成变量X，可以减少循环

跳转到最佳答案楼层

qh8600

1. Sub 替换DIV0为空() '这个#DIV/0!
   
2. On Error Resume Next
   
3. Dim RG As Range, x
   
4. x = Sheets("1").Cells(Rows.Count, 1).End(3).Row
   
5. For Each RG In Range("A1:AE" & x)
   
6. RG.Cells.SpecialCells(xlCellTypeFormulas, xlErrors) = ""
   
7. Next RG
   
8. End Sub

复制代码

把最下面非空单元格的行数赋值给变量X

把5000替换成变量X，可以减少循环

这儿有肥猫

公式改一下就好了吧。。
03版改成 if(iserror(原公式),"",原公式)
07版改成 iferror(原公式,"")

上清宫主

Cells.SpecialCells(xlCellTypeFormulas, 16).ClearContents

上清宫主

就一行，用那么多干啥？麻烦

KDZ

谢谢各位！！

su45

就是，一句解决！