Note: The other languages of the website are Google-translated. Back to English

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.

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:

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

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éeplus
  • 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 gammesplus
  • 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 cellulesplus
  • 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 PDFplus
  • 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
Commentaires (7)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, j'ai un problème similaire à celui ci-dessus. Que se passe-t-il si je veux sélectionner la cellule sous un critère spécifié ? Par exemple, vous pouvez utiliser l'exemple ci-dessus. je veux sélectionner la cellule sous "Mike". y a-t-il une issue facile ?
Ce commentaire a été minimisé par le modérateur sur le site
@SSJ avez-vous déjà trouvé une solution ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour gars,

Pour insérer des lignes vides sous une valeur de cellule spécifique, vous pouvez appliquer le code suivant :

Sub BlankLine()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Définir WorkRng = Application.Selection
Définir WorkRng = Application.InputBox("Plage", xTitleId, WorkRng.Address, Type :=8)
Définir WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Faux
Pour xRowIndex = xLastRow à 1 étape -1
Set Rng = WorkRng.Range("A" & xRowIndex)
Si Rng.Value = "Mike" Alors
Rng.Offset(1, 0).EntireRow.Insert Shift :=xlDown
Si fin
Suivant
Application.ScreenUpdating = True
End Sub

Veuillez remplacer le critère "Mike" par votre propre valeur de cellule.

J'espère que cela peut vous aider, merci!
Ce commentaire a été minimisé par le modérateur sur le site
Merci! ça a marché.
Ce commentaire a été minimisé par le modérateur sur le site
Cela a été incroyable pour les données que j'ai. Je me demandais si vous pouviez m'aider un peu plus loin. J'ai pu diviser mes données en fonction de cela, mais j'ai ensuite besoin de coder en couleur mes groupes de données. Lorsque je divise mes données, j'ai un nombre variable de lignes de 1 à 50, et j'ai 36 colonnes de données dont 32 colonnes dont j'ai besoin pour comparer les valeurs à la ligne du haut. Je sélectionne actuellement manuellement chaque groupe (séparé par une ligne vide), puis j'utilise ctrl+shift+| pour mettre en évidence les différences de colonne et formater ces cellules pour mettre en évidence les différences.


Y a-t-il quelqu'un qui pourrait écrire un code pour sélectionner et formater ces différences de colonne dans les regroupements, en utilisant la ligne vide comme séparateur ?
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen de ne pas afficher la boîte de dialogue avec une fenêtre contextuelle pour me rappeler de sélectionner les données de la colonne contenant le texte spécifique que je souhaite insérer dans la ligne ci-dessus, si une cellule spécifiée est remplie de données, le processus s'exécute automatiquement, sans invites, et insérez rangée au-dessus ?
Ce commentaire a été minimisé par le modérateur sur le site
J'essaie de le faire pour mettre une ligne vide après chaque cellule non vide, mais Excel dit. "Cette commande ne peut pas être utilisée sur plusieurs sélections"
Pourquoi ça ne marche pas pour moi ???
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés