用for语句导致excel死机.

icobio

我有个表.里面记录了很多公司名字(5000多个).有些左右两边的空了格,导致即使相同的公司名字,但查找重复的时候程序认不出来.

我用了个函数想替换左右两边的空格,结果运行导致cpu100%,excel停着那里没响应了.也不能进行任何操作.有什么方法可以不死机?

我的函数是这样写的

Sub replaced()
For i = 1 To 5000
Sheet1.Range("a" & i) = Trim(Sheet1.Range("a" & i))  第一张表的
Next

End Sub

即使用for each这样的语句也一个样子死机.

老鬼

在FOR语句中加个doevents

dengyf

一个函数能解决的问题为什么要劳动VBA大驾？