Comment utiliser la macro pour insérer une ligne sous le tableau dans Excel?
Il est courant pour nous d'ajouter des lignes vides au bas d'un tableau spécifié afin de développer le tableau et d'ajouter du nouveau contenu. Cet article parle de l'utilisation d'une macro pour insérer une nouvelle ligne sous un tableau spécifié et conserver la formule de la cellule ci-dessus dans Excel.
Utilisez une macro pour insérer une ligne sous le tableau dans Excel
Utilisez une macro pour insérer une ligne sous le tableau dans Excel
Veuillez procéder comme suit pour insérer une ligne vide sous une table spécifiée avec une 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, veuillez cliquer 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 sous 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 boîte de dialogue apparaît, veuillez sélectionner la plage de table spécifique que vous allez ajouter une ligne vide ci-dessous, puis cliquez sur le OK bouton. Voir la capture d'écran:
Ensuite, vous pouvez voir qu'une nouvelle ligne vide est ajoutée au bas du tableau spécifié. Et la formule dans la cellule ci-dessus est également réservée dans la ligne nouvellement insérée comme ci-dessous, voir capture d'écran:
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!