Excel添加macros后崩溃

我添加了一个简单的macros到我的Excel，但它似乎使我的Excel崩溃了很多。 有谁知道为什么？

这是macros：

Sub PlanRelativityTesting() With Sheets("Sheet1") For i = 8 To 9 .Range("D11").value = .Range("G" & i).value Call AnotherMacro Sheets("Sheet2").Select .Range("H" & i).value = Sheets("Sheet2").Range("AE20").value .Range("I" & i).value = Sheets("Sheet2").Range("AE21").value .Range("J" & i).value = Sheets("Sheet2").Range("AE22").value .Range("K" & i).value = Sheets("Sheet2").Range("AE23").value .Range("L" & i).value = Sheets("Sheet2").Range("AE24").value .Range("M" & i).value = Sheets("Sheet2").Range("AE25").value .Range("N" & i).value = Sheets("Sheet2").Range("AE26").value .Range("O" & i).value = Sheets("Sheet2").Range("AE27").value .Range("P" & i).value = Sheets("Sheet2").Range("AE28").value .Range("Q" & i).value = Sheets("Sheet2").Range("AE29").value .Range("R" & i).value = Sheets("Sheet2").Range("AE30").value .Range("S" & i).value = Sheets("Sheet2").Range("AE31").value Next i .Select End With End Sub 

Answer 1

正如约翰注意到你的代码可能更简洁：

 Sub PlanRelativityTesting() With Sheets("Sheet1") For i = 8 To 9 .Range("D11").Value = .Range("G" & i).Value AnotherMacro .Range("H" & i).Resize(1, 12).Value = _ Application.Transpose(Sheets("Sheet2").Range("AE20").Resize(12, 1).Value) Next i .Select End With End Sub 

但实际问题更可能在AnotherMacro