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.

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