Aprire il foglio di lavoro in cui si desidera copiare e incollare le celle .
2
Fare clic sulla scheda "Sviluppatore " e poi cliccare su " Visual Basic ".
3 Fare clic sulla scheda "Inserisci" nella finestra " Visual Basic " e quindi fare clic su " modulo . " Si aprirà una nuova finestra
4
Tagliare e incollare il codice seguente nella finestra : .
Sub CpyPste ( ) per
Dim Vendo come gamma
Dim NewRow As Long Dim
RNG come gamma
' disattivare l'aggiornamento dello schermo
Application.ScreenUpdating = False
NewRow = 401
Set Rng = Range (" A1 : A400 " ) per
Ogni Vendo IN RNG
righe . ( Sell.Row & " : " & Sell.Row ) Seleziona
Selection.Copy
Righe ( NewRow & " : " & NewRow ) . Seleziona
Selection.PasteSpecial Paste : = xlValues , Operation : = xlNone , SkipBlanks : = _
False , Transpose : = False
Application.CutCopyMode = False
NewRow = NewRow + 1
Avanti Vendi
Range (" A1 " ) . Selezionare
Application.ScreenUpdating = True End Sub
5
cambiare il codice in base alle proprie esigenze . Modificare il campo ( "A1 : A400 ") per l'intervallo di dati nel documento . Per esempio, se i dati sono in celle da B1 a B10 , si potrebbe modificare l'intervallo a ( "B1 : B10 " ) . Sarà inoltre necessario specificare in cui i dati devono essere incollato ( cellule A401 in questa macro , definito da " 401" ) .
6
Premere " F5 " per eseguire la macro .
software © www.354353.com