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 > 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!


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 emails ...
  • Super Formula Bar (éditez facilement plusieurs lignes de texte et de formule); Disposition de lecture (facilement lire et éditer un grand nombre de cellules); Coller à la gamme filtrée...
  • Fusionner les cellules / rangées / colonnes sans perdre de données; Contenu des cellules divisées; Combiner les lignes / colonnes en double... Prévenir les cellules en double; Comparer les plages...
  • Sélectionnez Dupliquer ou Unique Des rangées; Sélectionnez les lignes vierges (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux cahiers d'exercices; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de la formule; Créer automatiquement des références à plusieurs feuilles; Insérer des balles, Cases à cocher et plus ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre contenu de cellules et commentaires...
  • 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 en gras, en italique ...
  • Combinaison de classeurs et de feuilles de calcul; Fusionner les tables en fonction des colonnes clés; Fractionner les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus que de puissantes fonctionnalités 300. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit du jour 30.
kte tab 201905

Office Tab apporte une interface à onglets à Office et simplifie grandement votre travail

  • Activer l'édition par onglets et la lecture 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 le nombre de clics de souris pour vous chaque jour!
fond officetab
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.
    Satyam · 2 months 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 · 1 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 · 3 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!