Question

这是我在excel中复制和粘贴特定范围的非常简单的VBA代码。

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False

    Sheets("sheet1").Range("A1:G12,A84:G110 ").Select
    Selection.Copy
    Sheets("sheet1").Range("A112:G150").PasteSpecial
    Sheets("sheet1").Range("A112:G150").Copy
End Sub

我希望在复制30秒后在Excel（Sheets("sheet1").Range("A112:G150").Copy）中删除此范围。我该怎么办？

Answer 1

您可以使用Application.Wait等待30秒：

Private Sub CommandButton1_Click()

    Sheets("sheet1").Range("A1:G12,A84:G110").Copy
    Sheets("sheet1").Range("A112:G150").PasteSpecial
    Sheets("sheet1").Range("A112:G150").Copy

    Application.Wait Now() + 30 / 60 / 60 / 24

    Sheets("sheet1").Range("A112:G150").Clear
End Sub

复制30秒后删除单元格

1 个答案: