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 SubNotes: 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 for 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:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
