Question

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

这是宏：

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

中

添加宏后Excel崩溃

1 个答案: