Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Supposons que vous vouliez copier certaines données dans la plage A1: E1 de Sheet1 et collez-le rapidement à la rangée vide suivante de Sheet2 dans un classeur comme ci-dessous capture d'écran, que pouvez-vous faire facilement? Cet article présentera une méthode VBA pour vous.

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


Combiner plusieurs feuilles de calcul / classeurs dans une seule feuille de calcul / classeur:

Combiner plusieurs feuilles de calcul ou classeurs dans une seule feuille de calcul ou classeur peut être une tâche énorme dans votre travail quotidien. Mais, si vous avez Kutools for Excel, son utilité puissante - Combiner peut vous aider à combiner rapidement plusieurs feuilles de calcul, classeurs dans une feuille de calcul ou un classeur.

Kutools for Excel comprend plus de 300 outils maniables Excel. Gratuit pour essayer sans limitation dans les jours 30. Téléchargez l'essai gratuit maintenant


flèche bleue droite bulle Copiez les données dans la rangée 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 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: copie les données dans la rangée vide suivante 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

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

3. appuie sur le F5 clé pour exécuter le code, dans le pop-up Kutools for Excel boîte de dialogue, sélectionnez la plage que vous souhaitez copier dans la rangée vide suivante de Sheet2, puis cliquez sur le OK bouton. Voir la capture d'écran:

Ensuite, les données copiées de Sheet1 sont collées sur la rangée vide suivante du Sheet2 spécifique immédiatement comme ci-dessous:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.