Question

Excel:VBA:如何提高大数据量的取倒数运行速度

要求：如果单元格数目非常多，需要对有效数值单元格取倒数，0值置为MAX，空或无效数值单元格不处理。
处理：如果对每个单元格进行循环判断并赋值，运行速度非常慢，有什么办法可以提高运行速度吗？多谢！

Answer 1

计算的话只能这么做，必须循环到每个单元格，读取数据、进行判断或计算、写入单元格

但是在选择单元格时有省力的办法，就是用SpecialCells方法，直接选取数值单元格，然后循环处理每个选中的单元格，如：
set iRng=range("A:A").SpecialCells(xlCellTypeConstants, 1)
for each c in iRng
c.value = 1 / c.value
next

追问

谢谢，不知道还有没有其他好办法啊，一起等待其他高手的回答！

Answer 2

先关闭屏幕刷新吧。
application.ScreenUpdating=False

记得程序运行完毕后加上这句，就恢复回来了。
application.ScreenUpdating=true

形成这样:
application.ScreenUpdating=False
set iRng=range("A:A").SpecialCells(xlCellTypeConstants, 1)
for each c in iRng
c.value = 1 / c.value
next
application.ScreenUpdating=true

追问

谢谢，这个办法我早已经采用了。

追答

使用数组吧。
将表格的数据转到数组来执行，速度会大有提升的。