Comment copier des données sur la ligne vide suivante d'une autre feuille de calcul dans Excel?

Supposons que vous souhaitiez copier certaines données dans la plage A1: E1 de Sheet1 et les coller rapidement dans la ligne vide suivante de Sheet2 dans un classeur comme illustré ci-dessous, que pouvez-vous faire facilement? Cet article présentera une méthode VBA pour vous.

Copiez les données dans la ligne vide suivante d'une autre feuille de calcul avec le code VBA

---

Copiez les données dans la ligne vide suivante d'une autre feuille de calcul avec le code VBA

Vous pouvez exécuter le code VBA ci-dessous pour copier des données dans une certaine feuille et les coller automatiquement à la ligne vide suivante d'une autre feuille de calcul.

1. presse autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Module.

Code VBA: copier les données dans la prochaine ligne vide d'une autre feuille de calcul

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

Notes: Dans le code, Sheet2 est la feuille de calcul de destination des données copiées. Vous pouvez le modifier en fonction de vos besoins.

3. appuie sur le F5 clé pour exécuter le code, dans la fenêtre contextuelle Kutools pour Excel boîte de dialogue, sélectionnez la plage que vous souhaitez copier dans la prochaine ligne vide de Sheet2, puis cliquez sur le OK bouton. Voir la capture d'écran:

Ensuite, les données copiées de Sheet1 sont collées à la ligne vide suivante de la Sheet2 spécifique immédiatement comme illustré ci-dessous: