Comment insérer une ligne vide en fonction de la valeur de la cellule ci-dessus dans Excel?
Dans Excel, l'insertion de lignes vides est l'une des fonctions les plus utilisées dans notre travail quotidien. Cependant, existe-t-il un moyen d'insérer rapidement des lignes vides en fonction de la valeur de la cellule ci-dessus, comme illustré ci-dessous? À présent, cet article décrit la méthode pour insérer rapidement une ligne vide en fonction des valeurs de cellule ci-dessus dans Excel.
 |
 |
 |
Insérer une ligne en fonction de la valeur ci-dessus
Insérer une ligne en fonction de la valeur ci-dessus
Si vous souhaitez insérer une ligne vide en fonction du nombre ci-dessus, vous pouvez utiliser un code de macro.
1. Activez la feuille que vous utilisez et appuyez sur Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Moduleet collez le code ci-dessous dans le script.
VBA: insérer un code vierge basé sur la cellule ci-dessus
Sub Insert () 'UpdatebyExtendoffice20170926
Dim xRg comme plage
Dim xAddress en tant que chaîne
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
En cas d'erreur, reprendre ensuite
xAddress = ActiveWindow.RangeSelection.Address
Définir xRg = Application.InputBox("Sélectionnez une plage à utiliser (colonne unique) :", "KuTools For Excel", xAddress, , , , , 8)
Si xRg n'est rien, quittez Sub
Application.ScreenUpdating = Faux
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Colonne
xCount = xRg.Count
Définir xRg = xRg(1)
Pour I = xLastRow à xFstRow Étape -1
xNum = Cellules (I, xCol)
Si IsNumeric (xNum) et xNum > 0 Alors
Lignes (I + 1).Resize(xNum).Insérer
xCompte = xCompte + xNum
Fin si
Suivant
xRg.Resize(xCount, 1).Sélectionner
Application.ScreenUpdating = True
Fin du sous-marin
3. presse F5 pour exécuter le code, et une boîte de dialogue apparaît pour vous rappeler de sélectionner une liste pour travailler. Voir la capture d'écran:
4. Cliquez OK, les lignes vides ont été insérées.
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!
