Wie ersetze ich nicht leere Zellen durch einen bestimmten Wert in Excel?
In Excel können wir eine Auswahl schnell und einfach durch Drücken eines bestimmten Werts ersetzen oder füllen Strg + Eingabetaste Schlüssel, aber wissen Sie, wie Sie nur nicht leere Zellen durch einen bestimmten Wert in Ihrem ausgewählten Bereich ersetzen, der sowohl leere Zellen als auch Wertezellen enthält.
Ersetzen Sie nicht leere Zellen durch einen bestimmten Wert, indem Sie VBA-Code verwenden
Ersetzen Sie nicht leere Zellen durch einen bestimmten Wert, indem Sie die Funktion Suchen und Ersetzen verwenden
In Excel kann uns die Funktion Suchen und Ersetzen helfen, alle nicht leeren Zellen zu finden und sie dann nach Belieben durch einen bestimmten Wert zu ersetzen.
1. Wählen Sie den Datenbereich aus, den Sie nur durch die Wertezellen ersetzen möchten.
2. Und dann drücken Strg + H öffnen Suchen und Ersetzen Dialogfeld, in der Suchen und Ersetzen Dialog, unter Ersetzen Registerkarte, Typ * der Finden Sie, was Feld und geben Sie den gewünschten Wert ein Ersetzen durch Textfeld, siehe Screenshot:
3. Dann klick Alle ersetzen Klicken Sie auf die Schaltfläche, und ein Dialogfeld mit der Anzahl der zu ersetzenden Zellen wird geöffnet. Schließen Sie die Dialogfelder. Anschließend wurden alle Werte im ausgewählten Bereich durch die angegebenen Daten ersetzt. Siehe Screenshots:
 |
 |
 |
Ersetzen Sie nicht leere Zellen durch einen bestimmten Wert, indem Sie VBA-Code verwenden
Mit dem folgenden VBA-Code können Sie auch alle Datenzellen auf einmal durch die erforderlichen Werte ersetzen. Bitte machen Sie Folgendes:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Ersetzen Sie nicht leere Zellen durch einen bestimmten Wert
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. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, einen Bereich auszuwählen, in dem Sie die Daten ersetzen möchten.
4. Dann klick OKund geben Sie Ihren spezifischen Wert in das nächste Eingabeaufforderungsfeld ein, siehe Screenshot:
5. Und dann klick OKAlle Werte in Ihrem ausgewählten Bereich wurden sofort durch bestimmte Daten ersetzt.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
