Comment insérer une ligne vide au-dessus d'un texte spécifique dans Excel?
 |
 |
 |
Lorsque vous travaillez sur une feuille de calcul, avez-vous déjà essayé d'insérer une ligne vide au-dessus d'un texte spécifique dans une colonne? Par exemple, il y a des noms dans la colonne A, maintenant, je veux insérer des lignes vides au-dessus des cellules qui contiennent le nom «Mike» comme la capture d'écran de gauche montrée, peut-être qu'il n'y a pas de moyen direct pour vous de résoudre cette tâche dans Excel . Cet article, je vais parler de quelques bonnes astuces pour gérer ce travail dans Excel.
Insérer une ligne vide au-dessus du texte spécifique avec le code VBA
Insérer une ligne vide au-dessus d'un texte spécifique avec Kutools for Excel
Insérer une ligne vide au-dessus du texte spécifique avec le code VBA
Insérer une ligne vide au-dessus du texte spécifique manuellement un par un fera perdre beaucoup de temps, ici, je vais créer un code VBA pour vous permettre d'insérer la ligne vide au-dessus de la valeur de cellule spécifique à la fois.
1. Maintenez le ALT + F11 clés, et il ouvre le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Module, puis collez la macro suivante dans le Module Fenêtre.
Code VBA: insérez rapidement une ligne vide au-dessus du texte spécifique
Sub test1()
'updateby Extendoffice
Dim i As Long
Dim xLast As Long
Dim xRng As Range
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
If (xRng.Columns.Count > 1) Then
MsgBox "the selected range must be one column", , "Kutools for Excel"
Exit Sub
End If
xLast = xRng.Rows.Count
For i = xLast To 1 Step -1
If InStr(1, xRng.Cells(i, 1).Value, "Mike") > 0 Then
Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
End If
Next
End Sub
3. Puis appuyez F5 pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous rappeler de sélectionner les données de colonne qui contiennent le texte spécifique que vous souhaitez insérer dans la ligne ci-dessus, voir capture d'écran:
4. Et puis cliquez OK bouton, les lignes vides ont été insérées au-dessus du texte spécifique «Mike».
Notes: Dans le code ci-dessus, vous pouvez modifier la valeur du texte "Michel"À toute autre valeur souhaitée dans le script Si InStr (1, xRng.Cells (i, 1) .Value, "Mike")> 0 Ensuite.
Insérer une ligne vide au-dessus d'un texte spécifique avec Kutools for Excel
Si vous avez Kutools for Excel, Avec son Sélectionnez des cellules spécifiques fonctionnalité, vous pouvez d'abord sélectionner les valeurs de cellule spécifiées, puis appliquer l'utilitaire Insérer des lignes de feuille d'Excel pour insérer les lignes vides à la fois.
| Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. |
Après l'installation de Kutools for Excel, procédez comme suit:
1. Sélectionnez la plage de données que vous souhaitez utiliser.
2. Puis clique Kutools > Sélectionnez > Sélectionnez des cellules spécifiques, voir capture d'écran:
3. Dans le Sélectionnez des cellules spécifiques boîte de dialogue, sélectionnez Cellule sous le Type de sélection, puis spécifiez les critères dont vous avez besoin sous Type spécifique section, dans ce cas, je choisirai Équivaut à du Type spécifique, et entrez le nom que je veux sélectionner, voir capture d'écran:
4. Puis clique Ok bouton, toutes les cellules dont la valeur est Mike sont sélectionnées en même temps, voir capture d'écran:
5. Après avoir sélectionné les cellules de texte spécifiques, veuillez cliquer sur Accueil > insérer > Insérer des lignes de feuille, et les lignes vides seront insérées au-dessus du texte sélectionné, voir les captures d'écran:
 |
|
|
Téléchargez et essayez gratuitement Kutools for Excel Now!
Démo : Insérez une ligne vide au-dessus d'un texte spécifique avec Kutools for Excel
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!
