Question

我有一些简单的代码可以复制数据，然后过去数据。然后它会进行一些小的调整以查找某个值并重新编码。当我在VBA编辑器中点击播放时，它完全符合我的要求。但是当我单击我分配给它的按钮时，它会将部分数据复制到正确的单元格中，但也会清除数据所在的单元格。我已经检查了按钮，它说它被分配给正确的宏。当我单步使用F8时，我没有任何问题。我在工作表中有其他模块，但没有其他Excel文件打开。想法？

Sub Copy_Paste()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    ThisWorkbook.Sheets("1").Activate
    Range("A5", "a12").Copy
    ThisWorkbook.Sheets("Slides").Range("B14").PasteSpecial Paste:=xlPasteValues
    Range("c5", "h12").Copy
    ThisWorkbook.Sheets("Slides").Range("c14").PasteSpecial Paste:=xlPasteValues
    Range("k18", "k20").Copy
    ThisWorkbook.Sheets("Slides").Range("c7").PasteSpecial Paste:=xlPasteValues
    Range("e35", "m35").Copy
    ThisWorkbook.Sheets("Slides").Range("c26").PasteSpecial Paste:=xlPasteValues

    ThisWorkbook.Sheets("Slides").Activate

    Dim cell As Range
    For Each cell In Range("r15:r22")
        If (cell.Value = "inflatio") Then
            cell.Value = "INF"
        End If
    Next

    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Range("A1").Select

End Sub

VBA中的按钮或代码出错？

0 个答案: