Comment supprimer des lignes si la cellule est supérieure / inférieure à une certaine valeur dans Excel?

Parfois, vous devrez peut-être supprimer des lignes si les cellules d'une colonne spécifiée sont supérieures ou inférieures à une certaine valeur dans Excel. Cet article vous recommandera plusieurs méthodes pour résoudre ce problème.

Supprimer les lignes si la cellule est supérieure / inférieure à une certaine valeur avec le code VBA
Supprimer les lignes si la cellule est supérieure / inférieure à une certaine valeur avec Kutools for Excel
Supprimer les lignes si la cellule est supérieure / inférieure à une certaine valeur avec Kutoos pour Excel

Supprimer les lignes si la cellule est supérieure / inférieure à une certaine valeur avec le code VBA

Supposons que vous souhaitiez supprimer des lignes entières si la cellule de la colonne D est supérieure ou inférieure à une certaine valeur dans Excel. Vous pouvez exécuter le code VBA suivant pour y parvenir.

1. presse autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Code.

Code VBA: supprimer les lignes si la cellule est supérieure / inférieure à une certaine valeur dans Excel

Public Sub ProcessData()
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xRg.Range("A1").EntireRow.Insert
    Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
    xRg.Range("A1") = "Temp"
    xRg.AutoFilter 1, ">30000"
    Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub

Notes: Dans le code ci-dessus,> 30000 signifie que vous supprimerez des lignes si les cellules sont supérieures à 30000 dans une colonne spécifiée. Si vous souhaitez supprimer des lignes si les cellules sont inférieures à une certaine valeur, modifiez le signe> en <, puis spécifiez votre valeur.

3. presse F5 clé pour exécuter le code, dans la fenêtre contextuelle Kutools pour Excel boîte de dialogue, sélectionnez la plage (colonne unique) que vous trouverez si les cellules de cette colonne sont supérieures ou inférieures à une certaine valeur. Et puis cliquez sur le OK bouton. Voir la capture d'écran:

Ensuite, toutes les lignes avec une valeur de cellule supérieure à 30000 dans la colonne D sont supprimées immédiatement.

Supprimer les lignes si la cellule est supérieure / inférieure à une certaine valeur avec Kutools for Excel

La Sélectionnez des cellules spécifiques utilité de Kutools pour Excel peut vous aider à sélectionner toutes les lignes avec des cellules supérieures ou inférieures à une certaine valeur dans une colonne spécifiée, puis vous pouvez supprimer manuellement toutes les lignes sélectionnées à la fois.

1. Sélectionnez la colonne sur laquelle vous souhaitez supprimer des lignes, puis cliquez sur Kutools > Sélectionnez > Sélectionnez des cellules spécifiques. Voir la capture d'écran:

2. dans le Sélectionnez des cellules spécifiques boîte de dialogue, veuillez sélectionner Ligne entière dans le Type de sélection section. dans le Type spécifique section, sélectionnez Supérieure à or Moins que dans la première liste déroulante, entrez la certaine valeur dans la zone de texte suivante, puis cliquez sur le OK .

3. Ensuite, une boîte de dialogue apparaît pour vous dire combien de lignes sont sélectionnées, veuillez cliquer sur le OK bouton. Et vous pouvez voir que toutes les lignes avec une valeur supérieure à 30000 dans la colonne D sont sélectionnées immédiatement.

4. Cliquez avec le bouton droit sur l'une des lignes sélectionnées, puis cliquez sur Supprimer dans le menu contextuel. Et toutes les lignes sélectionnées sont supprimées.

Supprimer les lignes si la cellule est supérieure / inférieure à une certaine valeur avec Kutoos pour Excel

En plus des deux méthodes ci-dessus, vous pouvez filtrer toutes les lignes avec des cellules supérieures ou inférieures à une certaine valeur dans une colonne spécifiée, puis supprimer toutes les lignes filtrées avec le Supprimer les lignes et les colonnes masquées (visibles) utilité de Kutools pour Excel.

1. Sélectionnez l'en-tête de colonne, puis cliquez sur Données > Filtre. Voir la capture d'écran:

2. Cliquez sur la flèche déroulante dans la colonne sur laquelle vous allez supprimer les lignes, puis cliquez sur Filtres numériques > Plus grand que or Moins que comme ci-dessous capture d'écran:

3. dans le Filtre automatique personnalisé boîte de dialogue, entrez le certain nombre après que la zone est supérieur ou inférieur à, puis cliquez sur le bouton OK .

4. Ensuite, toutes les lignes avec certaines cellules qui sont supérieures ou inférieures à une certaine valeur dans la colonne D sont toutes filtrées. Vous pouvez supprimer toutes les lignes filtrées en sélectionnant les données filtrées, puis en cliquant sur Kutools > Supprimer > Supprimer les lignes et colonnes masquées (visibles). Voir la capture d'écran:

5. dans le Supprimer les lignes et colonnes masquées (visibles) boîte de dialogue, assurez-vous que Dans la plage sélectionnée l'option est sélectionnée dans le Regarder dans liste déroulante, sélectionnez rangées dans le Supprimer le type section, spécifiez l'option Lignes visibles dans la Type détaillé section, et enfin cliquez sur le OK .

6. Ensuite, toutes les lignes visibles dans la plage sélectionnée sont supprimées immédiatement, vous pouvez annuler le filtre en cliquant sur Données > Filtre.

Supprimer les lignes si la cellule est supérieure / inférieure à une certaine valeur avec Kutools for Excel

Articles Liés:

• Comment supprimer toutes les lignes sous une certaine ligne ou cellule active dans Excel?
• Comment supprimer toutes les lignes sauf la première ligne d'en-tête dans Excel?

---

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-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Lire la suite... Téléchargement Gratuit... Achat... 

---

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!

Lire la suite... Téléchargement Gratuit... Achat...