Come copiare i dati nella riga vuota successiva di un altro foglio di lavoro in Excel?

Supponiamo che tu voglia copiare determinati dati nell'intervallo A1:E1 del Foglio1 e incollarli rapidamente nella riga vuota successiva del Foglio2 in una cartella di lavoro, come mostrato nello screenshot sottostante. Cosa puoi fare per raggiungere facilmente questo obiettivo? Questo articolo introdurrà un metodo VBA per te.

Copia i dati nella riga vuota successiva di un altro foglio di lavoro con il codice VBA

Copia i dati nella riga vuota successiva di un altro foglio di lavoro con il codice VBA

Puoi eseguire il seguente codice VBA per copiare i dati in un determinato foglio e incollarli automaticamente nella riga vuota successiva di un altro foglio di lavoro.

1. Premi contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Poi copia e incolla il seguente codice VBA nella finestra Modulo.

Codice VBA: copia i dati nella riga vuota successiva 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

Nota: Nel codice, Foglio2 è il foglio di destinazione dei dati copiati. Puoi modificarlo in base alle tue esigenze.

3. Premi il tasto F5 per eseguire il codice; nella finestra di dialogo Kutools per Excel che appare, seleziona l'intervallo che desideri copiare nella riga vuota successiva del Foglio2 e poi clicca sul pulsante OK. Vedi screenshot:

I dati copiati dal Foglio1 vengono quindi immediatamente incollati nella riga vuota successiva del Foglio2, come mostrato nello screenshot sottostante.