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 insérer une ligne vide au-dessus du texte spécifique dans Excel?

doc insérer la ligne au-dessus du texte spécifique 1  2 doc insérer la ligne au-dessus du texte spécifique 2

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 quelques noms dans la colonne A, maintenant, je veux insérer des lignes vierges au-dessus des cellules qui contiennent le nom "Mike" comme capture d'écran gauche, peut-être, il n'y a pas de moyen direct pour résoudre cette tâche dans Excel . Cet article, je vais parler de quelques bonnes astuces pour faire face à ce travail dans Excel.

Insérer une ligne vide au-dessus d'un texte spécifique avec le code VBA

Insérer une ligne vide au-dessus d'un texte spécifique avec Kutools for Excel


Sélectionnez un texte spécifique et insérez des lignes vides au-dessus d'eux:

Avec Kutools for Excel's Sélectionner des cellules spécifiques utilitaire, vous pouvez rapidement sélectionner les lignes entières qui contiennent le texte ou le numéro spécifique dont vous avez besoin, puis vous pouvez supprimer les lignes ou insérer des lignes bkank au-dessus du texte dès que possible.

doc insérer la ligne au-dessus du texte spécifique 8

Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!


Insérer une ligne vide au-dessus d'un texte spécifique avec le code VBA


Pour insérer une ligne vide au-dessus du texte spécifique manuellement un par un perdra beaucoup de temps, ici, je vais créer un code VBA pour vous 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 la Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module, puis collez la macro suivante dans le Module Fenêtre.

Code VBA: Insérer rapidement une ligne vide au-dessus d'un texte spécifique

Sub test1()
'updateby Extendoffice 20151030
    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 clé pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous rappeler de sélectionner les données de la colonne qui contient le texte spécifique que vous souhaitez insérer la ligne ci-dessus, voir capture d'écran:

doc insérer la ligne au-dessus du texte spécifique 3

4. Et puis cliquez OK bouton, les lignes vides ont été insérées au-dessus du texte spécifique "Mike".

Note: Dans le code ci-dessus, vous pouvez modifier la valeur du texte "micro"À toutes les autres valeurs que vous souhaitiez du script Si InStr (1, xRng.Cells (i, 1) .Valeur, "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électionner 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, libre d'essayer sans limitation dans 60 jours.

Après l'installation de Kutools for Excel, s'il vous plaît faites comme suit:

1. Sélectionnez la plage de données que vous souhaitez utiliser.

2. Puis clique Kutools > Ou sélectionner > Sélectionner des cellules spécifiques, voir capture d'écran:

doc insérer la ligne au-dessus du texte spécifique 4

3. Dans le Sélectionner 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 vais choisir Équivaut à du Type spécifiqueet entrez le nom que je veux sélectionner, voir capture d'écran:

doc insérer la ligne au-dessus du texte spécifique 5

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:

doc insérer la ligne au-dessus du texte spécifique 6

5. Après avoir sélectionné les cellules de texte spécifiques, cliquez sur Accueil > insérer > Insérer des lignes de feuilleet les lignes vides seront insérées au-dessus du texte sélectionné, voir les captures d'écran:

doc insérer la ligne au-dessus du texte spécifique 7  2 doc insérer la ligne au-dessus du texte spécifique 2

Télécharger et tester gratuitement Kutools for Excel maintenant!


Démonstration: Insérer une ligne vide au-dessus d'un texte spécifique avec Kutools for Excel

Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!



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.
  • To post as a guest, your comment is unpublished.
    JK · 10 months ago
    This has been amazing for the data I have. I was wondering if you could help me one step further. I have been able to split my data based on this, but then I need to colour code my groups of data. When I split my data I have a variable number of rows from 1-50, and I have 36 columns of data including 32 columns that I need to compare the values within to the top row. I am currently manually selecting each group (as separated by a blank row) and then using ctrl+shift+| to highlight column differences, and formatting those cells to highlight the differences.


    Is there anyone who could write a code to select and format those column differences within the groupings, using the blank row as a separator?
  • To post as a guest, your comment is unpublished.
    SSJ · 2 years ago
    Hi, i have a similar problem as the one above.
    What if i want to select the cell below a specified criteria?

    For example, you can use the example from above. i want to select the cell below "Mike". is there any easy way out?
    • To post as a guest, your comment is unpublished.
      Shawn · 1 years ago
      @SSJ did you ever find a solution?
      • To post as a guest, your comment is unpublished.
        skyyang · 1 years ago
        Hello, guys,

        To insert blank rows below a specific cell value, you can apply the following code:

        Sub BlankLine()
        Dim Rng As Range
        Dim WorkRng As Range
        On Error Resume Next
        xTitleId = "KutoolsforExcel"
        Set WorkRng = Application.Selection
        Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
        Set WorkRng = WorkRng.Columns(1)
        xLastRow = WorkRng.Rows.Count
        Application.ScreenUpdating = False
        For xRowIndex = xLastRow To 1 Step -1
        Set Rng = WorkRng.Range("A" & xRowIndex)
        If Rng.Value = "Mike" Then
        Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
        End If
        Next
        Application.ScreenUpdating = True
        End Sub

        Please change the criteria "Mike" to your own cell value.

        Hope it can help you, thank you!