Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

Comment insérer une ligne vide au-dessus d'un texte spécifique dans Excel?

doc insérer une ligne au-dessus du texte spécifique 1 2 doc insérer une 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 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.

2. Cliquez 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:

doc insérer une 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».

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 pour 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 pour Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours

Après l'installation de Kutools pour Excel, procédez comme suit:

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

2. Puis clique Kutools > Choisir > 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:

doc insérer une 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 une ligne au-dessus du texte spécifique 6

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:

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

 Téléchargez et essayez gratuitement Kutools for Excel Now!


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

Kutools pour Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant!

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
bas de cabine
Say something here...
symbols left.
You are guest
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.
    pg1356 · 1 years ago
    I try do it to put a blank row after every non-empty cell, but excel says. "That command cannot be used on multiple selections"
    Why it dosnt work for me???
  • To post as a guest, your comment is unpublished.
    Satyam · 2 years ago
    Is there a way not to appears dialog box with pop out to remind me to select the column data which contains specific text I want to insert row above, If a specified cell is filled with data, then process run automatically , without promptings, and insert row above?
  • To post as a guest, your comment is unpublished.
    JK · 3 years 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 · 5 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 · 3 years ago
      @SSJ did you ever find a solution?
      • To post as a guest, your comment is unpublished.
        skyyang · 3 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!
        • To post as a guest, your comment is unpublished.
          udayaravi · 3 years ago
          thank you! its worked.