Comment remplacer des cellules non vides par une valeur spécifique dans Excel?
Dans Excel, nous pouvons rapidement et facilement remplacer ou remplir une sélection avec une valeur spécifique en appuyant sur Ctrl + Entrée clés, mais savez-vous comment remplacer uniquement les cellules non vides par une certaine valeur dans la plage sélectionnée qui contient à la fois des cellules vides et des cellules de valeur.
Remplacez les cellules non vides par une valeur spécifique en utilisant le code VBA
Remplacez les cellules non vides par une valeur spécifique à l'aide de la fonction Rechercher et remplacer
Dans Excel, la fonction Rechercher et remplacer peut nous aider à trouver toutes les cellules non vides, puis à les remplacer par une valeur spécifiée à votre guise.
1. Sélectionnez la plage de données que vous souhaitez remplacer uniquement les cellules de valeur.
2. Et puis appuyez sur Ctrl + H ouvrir le Rechercher et remplacer boîte de dialogue, dans la Rechercher et remplacer dialogue, sous remplacer onglet, tapez * dans l' Trouvez ce que et entrez la valeur dont vous avez besoin dans Remplacez-le par zone de texte, voir capture d'écran:
3. Puis clique Remplacer tout bouton, et une boîte de dialogue est apparue pour vous indiquer le nombre de cellules à remplacer, fermez les boîtes de dialogue, puis toutes les valeurs de la plage sélectionnée ont été remplacées par les données spécifiées, voir les captures d'écran:
 |
 |
 |
Remplacez les cellules non vides par une valeur spécifique en utilisant le code VBA
En utilisant le code VBA suivant, vous pouvez également remplacer toutes les cellules de données par vos valeurs nécessaires à la fois. Veuillez faire comme ceci:
1. Maintenez le ALT + F11 clés pour ouvrir le Fenêtre Microsoft Visual Basic pour Applications.
2Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.
Code VBA: remplacez les cellules non vides par une valeur spécifique
Sub ReplaceNumbers()
'Update 20141111
Dim SRg As Range
Dim Rg As Range
Dim Str As Variant
On Error Resume Next
Set SRg = Application.Selection
Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
If Err <> 0 Then Exit Sub
Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
If Str = False Then Exit Sub
For Each Rg In SRg
If Rg <> "" Then Rg = Str
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 une plage dans laquelle vous souhaitez remplacer les données, voir capture d'écran:
4. Puis clique OK, et entrez votre valeur spécifique dans la boîte de dialogue suivante, voir capture d'écran:
5. Et puis cliquez OK, toutes les valeurs de votre plage sélectionnée ont été remplacées par certaines données à la fois.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement 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!
