刪除細胞複製後30秒

這是我非常簡單的VBA代碼複製並粘貼在Excel specificed範圍。刪除細胞複製後30秒

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

我要刪除這個範圍在Excel（Sheets("sheet1").Range("A112:G150").Copy）已經被複制了30秒後。我該怎麼做？

來源

2017-06-28 bys0202

你可以使用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

來源

2017-06-28 04:23:20 YowE3K

我實際需要的第二個副本爲好。此按鈕的目的是複製指定的範圍內，那麼我將粘貼到電子郵件答覆。 – bys0202

@ bys0202我編輯的答案，把第二個副本回。 – YowE3K

刪除細胞複製後30秒

回答

相關問題