Jak nahradit neprázdné buňky konkrétní hodnotou v aplikaci Excel?
V aplikaci Excel můžeme rychle a snadno nahradit nebo vyplnit výběr konkrétní hodnotou stisknutím Ctrl + Enter klíče, ale víte, jak nahradit pouze neprázdné buňky určitou hodnotou ve vybraném rozsahu, který obsahuje prázdné buňky i hodnotové buňky.
Nahraďte neprázdné buňky konkrétní hodnotou pomocí funkce Najít a nahradit
Nahraďte neprázdné buňky konkrétní hodnotou pomocí kódu VBA
Nahraďte neprázdné buňky konkrétní hodnotou pomocí funkce Najít a nahradit
V aplikaci Excel nám funkce Najít a nahradit může pomoci najít všechny neprázdné buňky a poté je nahradit požadovanou hodnotou, jak se vám líbí.
1. Vyberte rozsah dat, který chcete nahradit pouze hodnotovými buňkami.
2. A pak stiskněte Ctrl + H k otevření Najít a nahradit v dialogovém okně v Najít a nahradit dialogové okno pod Nahradit kartu, zadejte * v Najít to, co do pole a zadejte požadovanou hodnotu Nahradit textové pole, viz screenshot:
3. Pak klikněte na tlačítko Nahradit vše Tlačítko a vyskočilo dialogové okno, které vám řekne počet buněk, které mají být nahrazeny, zavřete dialogy a poté byly všechny hodnoty ve vybraném rozsahu nahrazeny zadanými daty, viz screenshoty:
Nahraďte neprázdné buňky konkrétní hodnotou pomocí kódu VBA
Pomocí následujícího kódu VBA můžete také nahradit všechny datové buňky požadovanými hodnotami najednou. Udělejte prosím toto:
1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Nahraďte neprázdné buňky konkrétní hodnotou
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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a vyskočí okno s výzvou, které vám připomene výběr rozsahu, kterým chcete data nahradit, viz screenshot:
4. Pak klikněte na tlačítko OK, a zadejte svou konkrétní hodnotu do pole dalšího řádku, viz screenshot:
5. A pak klikněte na tlačítko OK, všechny hodnoty ve vybraném rozsahu byly nahrazeny určitými daty najednou.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!