Come copiare i dati nella successiva riga vuota di un altro foglio di lavoro in Excel?
Supponendo di voler copiare determinati dati nell'intervallo A1: E1 di Sheet1 e incollarli rapidamente nella successiva riga vuota di Sheet2 in una cartella di lavoro come mostrato nell'immagine sottostante, cosa puoi fare facilmente? Questo articolo introdurrà un metodo VBA per te.
Copia i dati nella riga vuota successiva di un altro foglio di lavoro con codice VBA
Copia i dati nella riga vuota successiva di un altro foglio di lavoro con codice VBA
È possibile eseguire il codice VBA sottostante per copiare i dati in un determinato foglio e incollarli automaticamente alla riga vuota successiva di un altro foglio di lavoro.
1. Stampa altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia e incolla il codice VBA sottostante nella finestra del modulo.
Codice VBA: copia i dati nella successiva riga vuota di un altro foglio di lavoro
Private Sub CommandButton1_Click()
Dim xScreenUpdating As Boolean
Dim xPasteSht As Worksheet
Dim xRg As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xPasteSht = Worksheets("Sheet2")
xScreenUpdating = Application.ScreenUpdating
Application.ScreenUpdating = False
xRg.Copy
xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = xScreenUpdating
End Sub
Note:: Nel codice, Sheet2 è il foglio di lavoro di destinazione dei dati copiati. Puoi cambiarlo in base alle tue necessità.
3. premi il F5 chiave per eseguire il codice, nel pop-up Kutools for Excel finestra di dialogo, selezionare l'intervallo che si desidera copiare nella riga vuota successiva di Sheet2, quindi fare clic su OK pulsante. Vedi screenshot:
Quindi i dati copiati di Sheet1 vengono incollati sulla riga vuota successiva del Sheet2 specifico immediatamente come mostrato nell'immagine sottostante:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!