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 utiliser macro pour insérer une ligne sous la table dans Excel?

Il est courant pour nous d'ajouter des lignes vides au bas d'une table spécifiée afin de développer la table et ajouter du nouveau contenu. Cet article parle d'utiliser une macro pour insérer une nouvelle ligne sous une table spécifiée et conserver la formule de la cellule ci-dessus dans Excel.

Utiliser une macro pour insérer une ligne sous la table dans Excel


Utiliser une macro pour insérer une ligne sous la table dans Excel


Veuillez procéder comme suit pour insérer une ligne vide sous une table spécifiée avec macro.

1. appuie sur le 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, s'il vous plaît cliquez insérer > Module pour ouvrir la fenêtre Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre.

Code VBA: utilisez une macro pour insérer une ligne vide en dessous d'une table spécifiée

Sub AddRows()
'Updated by Extendoffice 2017/9/12
    Dim xLastRow As Long
    Dim xRg As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the table range you will insert blank row below:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xLastRow = xRg.Row + xRg.Rows.Count
    xRg.Rows(xLastRow).FillDown
    xRg.Rows(xLastRow).SpecialCells(xlCellTypeConstants).ClearContents
End Sub

3. appuie sur le F5 clé pour exécuter le code. Et un Kutools for Excel La boîte de dialogue apparaît, sélectionnez la plage de table souhaitée, ajoutez une ligne vide ci-dessous, puis cliquez sur OK bouton. Voir la capture d'écran:

Ensuite, vous pouvez voir une nouvelle ligne vide est ajoutée au bas de la table spécifiée. Et la formule dans la cellule ci-dessus est également réservée dans la ligne nouvellement insérée comme ci-dessous voir la capture d'écran montré:



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.