匹配生产计划的小程序--程序虽小运行速度很慢-1个小时不出结果

为什么一运行就死机一般   等好久不出结果  只能强制关闭进程。
请诊断

Sub 匹配月计划()
Application.ScreenUpdating = False
Range("I4:DO800").ClearContents
Dim i%, j%, k%

Dim sht2 As Worksheet, sht3 As Worksheet
    Set sht2 = ThisWorkbook.Worksheets("sheet2")
    Set sht3 = ThisWorkbook.Worksheets("sheet3")
   
For k = 1 To 130
For i = 4 To 74      '此处的74改为4，可在2分钟内运行完程序。为什么这么慢
For j = 4 To 585
  sht2.Cells(3, k + 8) = sht3.Cells(3, k)
    If sht2.Cells(i, 7) = sht3.Cells(j, k) And sht2.Cells(i, 7) <> "" Then
       sht2.Cells(i, k + 8) = sht3.Cells(3, k)
    End If

    If sht3.Cells(j, k).Value = "" Then Exit For

Next j
Next i
Next k

Application.ScreenUpdating = True

End Sub

[ 本帖最后由 shanchuan 于 2011-8-7 15:48 编辑 ]

等了半个小时都没运行完，  电脑配置较高  ，

开始加上
Application.Calculation = xlCalculationManual
后面加上
Application.Calculation = xlCalculationAutomatic

如果不行
最好上附件~