Comment effacer le contenu des cellules en fonction de l'état dans Excel ?
Parfois, vous devrez peut-être effacer le contenu des cellules en fonction des conditions dans Excel, telles que l'effacement du contenu de la cellule si la cellule contient une valeur spécifique, l'effacement du contenu de la cellule s'il y a des cellules vides dans une autre colonne, ou l'effacement du contenu de la cellule avec une couleur d'arrière-plan spécifique, etc. Cet article présentera quelques astuces pour résoudre ces tâches rapidement et facilement.
Effacer le contenu de la cellule en fonction de la valeur de la cellule avec le code VBA
Effacer des lignes entières si une autre cellule est vide avec le code VBA
Effacer le contenu des cellules en fonction de la couleur d'arrière-plan avec le code VBA
Effacer le contenu de la cellule en fonction de la valeur de la cellule avec le code VBA
Par exemple, vous avez la plage de données suivante, maintenant, vous voulez effacer le contenu de la cellule qui est "Hoodie", le code VBA ci-dessous peut vous rendre service.
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Moduleet collez le code suivant dans la fenêtre Module.
Code VBA : Effacer le contenu de la cellule si la cellule est égale à une valeur spécifique
Sub ClearContents()
'Updateby ExtendOffice
Dim xRng As Range
Dim xCell As Range
Dim xText As String
Set xRng = Application.Range("A2:A12")
xText = "Hoodie" 'Change this text to your own
For Each xCell In xRng
If xCell.Value = xText Then
xCell.clearContents
End If
Next xCell
End Sub
3. Puis appuyez F5 clé pour exécuter ce code, et toutes les cellules avec le texte "Hoodie" sont effacées à la fois, voir capture d'écran :
Effacer des lignes entières si la valeur est supérieure ou inférieure à une valeur spécifique avec le code VBA
Supposons que vous disposiez de la plage de données ci-dessous pour effacer tout le contenu de la ligne si la valeur de la colonne D est supérieure ou inférieure à 300. Ici, je vais créer un code VBA pour le compléter.
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Moduleet collez le code suivant dans la fenêtre Module.
Code VBA : effacez des lignes entières si la valeur de la cellule est supérieure ou inférieure à une valeur spécifique
Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
Set xRowRg = xRg.Rows.Item(xF)
xBol = False
For Each xCell In xRowRg.Cells
If Application.IsNumber(xCell.Value) Then
If xCell.Value > xStrValue Then
xBol = True
Exit For
End If
End If
Next
If xBol Then
xRowRg.EntireRow.clearContents
End If
Next
End Sub
3. Puis appuyez F5 clé pour exécuter ce code, et tout le contenu de la ligne est effacé si la valeur dans la colonne D est supérieure à 300, voir capture d'écran :
Effacer le contenu des cellules ou des lignes en fonction de la valeur de la cellule avec une fonction pratique
Si vous avez Kutools for Excel, Avec son Sélectionnez des cellules spécifiques fonctionnalité, vous pouvez sélectionner les cellules ou les lignes en fonction de la valeur spécifique, puis supprimer immédiatement le contenu de la cellule.
Après l'installation de Kutools for Excel, veuillez faire comme ceci:
1. Sélectionnez la plage de données avec les valeurs sur lesquelles vous souhaitez effacer le contenu des cellules ou des lignes, puis cliquez sur Kutools > Sélectionnez > Sélectionnez des cellules spécifiques, voir capture d'écran:
2. Dans le ouvert Sélectionnez des cellules spécifiques boîte de dialogue, effectuez les opérations suivantes:
- Cliquez Cellule or Ligne entière que vous souhaitez sélectionner ;
- Spécifiez les critères sous le Type spécifique section selon vos besoins. Ici, je souhaite sélectionner les lignes dont la valeur dans la colonne D est supérieure à 300.
3. Puis clique Ok et toutes les lignes dont la valeur est supérieure à 300 sont sélectionnées. Maintenant, il vous suffit d'appuyer sur la touche Suppr du clavier pour supprimer le contenu de la cellule, voir capture d'écran :
Effacer les données des lignes dans une plage si contient une cellule vide avec le code VBA
Dans ce cas, si la cellule de la plage de données contient un espace vide, je souhaite effacer les données des lignes de la plage, comme illustré ci-dessous.
Pour terminer cette tâche, veuillez appliquer le code VBA suivant :
1. Maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Module, puis collez le code suivant dans le Module Fenêtre.
Code VBA : Effacer les données des lignes si elles contiennent une cellule vide
Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub
3. Puis appuyez F5 clé pour exécuter ce code, et les données des lignes avec des cellules vides sont effacées immédiatement dans la plage spécifique dont vous avez besoin.
Effacer le contenu des cellules en fonction de la couleur d'arrière-plan avec le code VBA
Pour effacer les cellules remplies avec une couleur d'arrière-plan spécifique, vous pouvez utiliser le code VBA suivant.
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Module, puis collez le code suivant dans le Module Fenêtre.
Code VBA : Effacer le contenu des cellules en fonction de la couleur d'arrière-plan
Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Interior.Color = RGB(252, 228, 214) Then
xcell.Clearcontents
End If
Next
End Sub
3. Et puis, appuyez sur F5 clé pour exécuter ce code, et le contenu de la cellule avec la couleur d'arrière-plan spécifiée est effacé immédiatement. Voir capture d'écran :
Les meilleurs outils de productivité de bureau
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
- 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 et conservation des données; Contenu des cellules divisées; Combiner les lignes en double et la somme / moyenne... 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 ...
- Formules favorites et insérer rapidement, Plages, graphiques et images; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
- 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
- Regroupement du tableau croisé dynamique par numéro de semaine, jour de la semaine et plus encore ... Afficher les cellules déverrouillées et verrouillées par différentes couleurs; Mettre en évidence les cellules qui ont une formule / un nom
- 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!