Hogyan lehet az üres cellákat helyettesíteni meghatározott értékkel az Excelben?
Az Excelben gyorsan és egyszerűen kicserélhetjük vagy kitölthetjük a kijelölést egy adott értékkel a megnyomásával Ctrl + Enter kulcsokat, de tudja-e, hogy csak a nem üres cellákat cserélje le egy adott értékre a kiválasztott tartományban, amely üres cellákat és érték cellákat egyaránt tartalmaz.
Cserélje a nem üres cellákat meghatározott értékre a Keresés és csere szolgáltatás használatával
Cserélje a nem üres cellákat meghatározott értékre a VBA kód használatával
Cserélje a nem üres cellákat meghatározott értékre a Keresés és csere szolgáltatás használatával
Az Excelben a Keresés és csere szolgáltatás segíthet megtalálni az összes nem üres cellát, majd lecserélni őket egy megadott értékre, ahogy tetszik.
1. Válassza ki azt az adattartományt, amelyben csak az értékcellákat kívánja kicserélni.
2. Ezután nyomja meg a gombot Ctrl + H megnyitni Keresés és csere párbeszédpanelen, a Keresés és csere párbeszéd, alatt Cserélje fülre írja be * a Mit keres mezőbe írja be a szükséges értéket Cserélje ki szövegmező, lásd a képernyőképet:
3. Ezután kattintson Az összes cseréje gombra, és egy párbeszédablak jelent meg, amely megadja a kicserélendő cellák számát, zárja be a párbeszédpaneleket, majd a kiválasztott tartomány összes értékét lecserélte a megadott adatokra, lásd a képernyőképeket:
Cserélje a nem üres cellákat meghatározott értékre a VBA kód használatával
A következő VBA kód használatával az összes adatcellát egyszerre kicserélheti a szükséges értékekre. Kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA kód: Cserélje le a nem üres cellákat meghatározott értékre
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy válasszon egy tartományt, amelyre cserélni szeretné az adatokat, lásd a képernyőképet:
4. Ezután kattintson OK, és írja be a megadott értéket a következő prompt mezőbe, lásd a képernyőképet:
5. Kattintson a gombra OK, a kiválasztott tartomány összes értékét egyszerre lecserélték a bizonyos adatokra.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!