代码优化

破例

Sub 测试()


Dim r As Range
Dim arr()
arr = Range(Range("A1"), Range("AD5000"))


    For i = 1 To 900
        
        
        If Range("Z" & i) = "" Then
            GoTo 1
        End If
        
        
        Set r = [a1:x20000].Find(Range("Z" & i))
        
        
      
        
        
        Range("AA" & i) = Cells(r.Row - 1, r.Column + 1)
        Range("AC" & i) = Cells(r.Row - 7, r.Column)
        
        
1:
        
    Next i


End Sub


此代码运行非常缓慢 请大佬给优化下 谢谢

ykcbf1100

用数组啊，这样可以提高速度。

E风卍行H

arr 好像没用到呀，试一下会不会快一点

1. Sub 测试()
   
2. '    Dim arr()
   
3. '    arr = Range("A1:AD5000").Value
   
4. 
   
5.     Dim brr()
   
6.     brr = Range("Z1:Z900").Value
   
7.    
   
8.     Dim r As Range, i As Integer
   
9.     For i = 1 To 900
   
10.         If brr(i, 1) <> "" Then
    
11.             Set r = [a1:x20000].Find(brr(i, 1))
    
12.             Range("AA" & i) = Cells(r.Row - 1, r.Column + 1)
    
13.             Range("AC" & i) = Cells(r.Row - 7, r.Column)
    
14.         End If
    
15.     Next i
    
16. 
    
17. End Sub

复制代码

破例

ykcbf1100 发表于 2022-11-16 12:31
用数组啊，这样可以提高速度。

给个例子呗 谢谢

ykcbf1100

破例 发表于 2022-11-16 13:12
给个例子呗 谢谢

大家都知道，就你不知道。

zhw79

你循环里不断访问单元格，，并且不屏蔽自动更新，，速度能快么

破例

我要知道我还发帖求助么，你不想帮可以不用回 谢谢

E风卍行H

审核速度有点慢，我都回复好久了

破例

E风卍行H 发表于 2022-11-16 12:38
arr 好像没用到呀，试一下会不会快一点

快很多 谢谢你~

破例

zhw79 发表于 2022-11-16 13:30
你循环里不断访问单元格，，并且不屏蔽自动更新，，速度能快么

谢谢 屏蔽后也快很多