2009-11-02 6 views

risposta

4

provare questo codice come un esempio. La linea di chiave è 'Application.CutCopyMode = False'

Sub Test() 
    Range("A1").Copy 
    MsgBox "View Marching Ants" 
    Range("A2").Select 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 
End Sub