VBA的这个程序怎么运作之后停不来

石头歌

大神们，请看！
Sub Macro2()
'
' Macro2 Macro
'
' 快捷键: Ctrl+w
    Dim I As Long, t As Long, y As Long
    I = 0
    t = 2
    Do While Range("D" & t).Value <> ""
    Windows("综合楼.xls").Activate
       Do Until Range("D" & t).Value2 >= 484
      
    Windows("综合楼.xls").Activate
    Range("D" & t).Select
    Selection.Copy
    Windows("mo最新.xls").Activate
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B10").Select
    Windows("综合楼.xls").Activate
    Range("B" & t).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("mo最新.xls").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("综合楼.xls").Activate
    Range("F" & t).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("mo最新.xls").Activate
    Range("B14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H1").Select
    Range("H1:H79").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("A" & y + 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("MO数据").Select
    I = I + 1
    t = t + 1
    y = I * 80
    Loop
    Loop
    Sheets("sheet1").Select
    Columns("A:A").Select
    Application.CutCopyMode = False
    Selection.Copy
End Sub


知道的请，回个，谢谢！

lhdcxz

你在代码里面没有改变Range("D" & t).Value 。就不会停下来啦。

李甲

常量
进入死循环