Jak převést návrat vozíku na čárku v aplikaci Excel?
Možná máte spoustu buněk, jejichž hodnoty jsou odděleny návraty vozíku, a nyní musíte najít všechny návraty vozíku a nahradit je čárkami nebo jinými znaky, jak ukazuje následující snímek obrazovky. Jak byste mohli rychle a snadno převést všechny návraty vozíku na čárky nebo jiné znaky v listu?
Převést návraty na čárky pomocí vzorce
Pomocí funkce Najít a nahradit můžete převést konce řádku na čárky
Převod návratů na čárky pomocí kódu VBA
Převést návraty na čárky pomocí vzorce
Následující jednoduchý vzorec vám pomůže snadno nahradit konce řádku čárkami nebo jinými znaky.
1. Zadejte tento vzorec do prázdné buňky kromě svých údajů: = SUBSTITUTE (A1, CHAR (10), ",") (A1 označuje buňku, kterou chcete nahradit návrat vozíku, a čárka mezi uvozovkami je znak, který chcete použít, můžete je podle potřeby změnit.), viz screenshot:
2. Poté přetáhněte úchyt výplně do rozsahu, na který chcete použít tento vzorec, a získáte následující výsledek, že konce řádku budou nahrazeny čárkami.
Pomocí funkce Najít a nahradit můžete převést konce řádku na čárky
Funkce Najít a nahradit vám také může pomoci převést konce řádku na čárky najednou. Postupujte prosím následovně:
1. Vyberte rozsah dat, který chcete převést na začátek řádku.
2, klikněte Domů > Najít a vybrat > Nahradit nebo použijte zkratky Ctrl + H klávesy pro otevření Najít a nahradit dialogové okno, viz screenshot:
3. v Najít a nahradit v dialogovém okně v Najít to, co pole, prosím stiskněte Ctrl + J klíče a v Nahradit do pole zadejte požadované znaky, v tomto případě zadám čárku (,), viz screenshot:
4. Pak klikněte na tlačítko Nahradit vše tlačítko a vyskočí okno s výzvou, které vám připomene, kolik náhrad bylo provedeno. Viz screenshot:
5. A pak klikněte na tlačítko OK a zavřete Najít a nahradit V dialogovém okně byly všechny konce řádku nahrazeny čárkami.
Převod návratů na čárky pomocí kódu VBA
Pokud vás zajímá kód VBA, mohu vám představit kód, který tuto práci vyřeší.
1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující kód do okna modulu.
Kód VBA: Převést návrat vozíku na čárky
Sub ReplaceCarriage()
'Update 20141023
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = Replace(Rng.Value, Chr(10), ",")
Next
End Sub
3. Pak stiskněte tlačítko F5 Chcete-li spustit tento kód, zobrazí se výzva k připomenutí výběru rozsahu dat, který chcete použít. Viz screenshot:
4. Pak klikněte na tlačítko OKa návraty vozíku byly okamžitě převedeny na čárky.
Poznámka:
Ve výše uvedeném kódu můžete změnit čárku "," v rámci Rng.Value = Nahradit (Rng.Value, Chr (10), ",") skript na jiné znaky, jak se vám líbí.
Související články:
Jak rychle odstranit konce řádků v aplikaci Excel?
Jak rozdělit buňky do více sloupců nebo řádků pomocí návratu vozíku?
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!