请问如何使下面代码运行快点 谢谢你

/yb星期六

请问如何使下面代码运行快点  谢谢
Sub sfpp1()
Dim x As Integer, y As Integer
y = Worksheets("资金").UsedRange.Rows.Count
  For x = 1 To y
   If Sheets("资金").Range("f" & x).Value = Sheets("采集表").Range("D6").Value Then
     Sheets("采集表").Range("G12").Value = Sheets("资金").Range("g" & x).Value
     Sheets("采集表").Range("F12").Value = Sheets("资金").Range("j" & x).Value
    Exit For
   End If
  Next x
End Sub

opiona

1. '*********************************
   
2. '*******  北极狐工作室出品  ******
   
3. '*******  QQ：14885553      ******
   
4. '*********************************
   
5. 
   
6. Sub Opiona()
   
7.    
   
8.     Rem 禁止系统刷屏?触发其他事件等
   
9.     'On Error Resume Next    '// 发生错误，自动执行下一句，就是忽略错误
   
10.     Application.ScreenUpdating = False '//关闭屏幕刷新
    
11.     Application.DisplayAlerts = False '//关闭系统提示
    
12.     Application.EnableEvents = False  '//禁止触发其他事件
    
13.     Dim T
    
14.     T = Timer   '//开始时间
    
15.    
    
16.     Dim x As Integer, y As Integer
    
17.     y = Worksheets("资金").UsedRange.Rows.Count
    
18.     For x = 1 To y
    
19.         If Sheets("资金").Range("f" & x).Value = Sheets("采集表").Range("D6").Value Then
    
20.             Sheets("采集表").Range("G12").Value = Sheets("资金").Range("g" & x).Value
    
21.             Sheets("采集表").Range("F12").Value = Sheets("资金").Range("j" & x).Value
    
22.             Exit For
    
23.         End If
    
24.     Next x
    
25.    
    
26.     Application.EnableEvents = True  '//  '//恢复触发其他事件
    
27.     Application.ScreenUpdating = True '//恢复屏幕刷新
    
28.     Application.DisplayAlerts = True '//恢复系统提示
    
29.     MsgBox "一共用时：" & Format(Timer - T, "#0.0000") & " 秒", , "北极狐提示!!"  '//提示所用时间
    
30. End Sub

复制代码

opiona