Přejít k hlavnímu obsahu

Jak odstranit vedoucí apostrof z čísel v aplikaci Excel?

doc odstranit vedoucí apostrof 1

Předpokládejme, že máte seznam čísel, kterým předchází skrytý apostrof, a apostrof se zobrazí pouze na liště vzorců, když vyberete buňku jako následující snímek obrazovky. A teď chcete z hodnoty buňky odstranit přední apostrof. Chcete-li je odstranit jeden po druhém, strávíte hodně času, zde budu mluvit o několika rychlých tricích pro řešení tohoto problému.

Odstraňte úvodní apostrof z čísel a vložte je jako hodnoty

Odstraňte úvodní apostrof z čísel pomocí textu na sloupec

Odstraňte přední apostrof z čísel pomocí kódu VBA

Odstraňte přední apostrof z čísel pomocí Kutools pro Excel


Můžete použít jednoduchou funkci - vložit jako hodnoty k dokončení tohoto úkolu postupujte takto:

1. Vyberte rozsah dat, ze kterého chcete odstranit úvodní apostrof, a stiskněte Ctrl + C zkopírovat je.

2. Poté klikněte na jednu buňku, kam chcete umístit výsledek, klikněte pravým tlačítkem a vyberte Hodnota 123 z Možnosti vložení, viz screenshot:

doc odstranit vedoucí apostrof 2

3. A můžete vidět, že z čísel byl odstraněn přední apostrof.

doc odstranit vedoucí apostrof 4 2 doc odstranit vedoucí apostrof 5

V aplikaci Excel Text do sloupce funkce vám také může pomoci tento úkol vyřešit.

1. Vyberte rozsah dat, ze kterého chcete odstranit úvodní apostrof.

2. Pak klikněte na tlačítko Data > Text do sloupce, a v Převést Průvodce textu na sloupce, Klepněte na tlačítko úprava tlačítko přímo, viz screenshot:

doc odstranit vedoucí apostrof 6

3. A teď najdete všechny hlavní apostrofy, které byly z čísel odstraněny.


Pokud vás zajímá kód VBA, mohu vám vytvořit kód, který vám pomůže s tímto úkolem.

1. Podržte ALT + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Odstraňte úvodní apostrof z čísel

Sub remove_Apostrophe()
'Updateby20150521
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)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeConstants, xlNumbers)
For Each rng In WorkRng
    If Not rng.HasFormula Then
        rng.Formula = rng.Value
    End If
Next
End Sub

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a ve vyskakovacím okně s výzvou vyberte rozsah dat, který chcete použít, viz screenshot:

doc odstranit vedoucí apostrof 7

4. A pak klikněte na tlačítko OK, byly z vybraných buněk odstraněny všechny přední apostrofy.


Kutools pro ExcelJe Převádějte mezi textem a číslem nástroj vám pomůže převést čísla formátovaná jako text na normální čísla jedním kliknutím a současně odstranit úvodní apostrof.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů

Po instalaci Kutools pro Excel, postupujte následovně:

1. Vyberte rozsah dat, který chcete použít.

2, klikněte Kutools > Obsah > Převádějte mezi textem a číslem, viz screenshot:

3. V Převádějte mezi textem a číslem dialogové okno vyberte Text na číslo pod Převést typ, poté klepněte na tlačítko Ok or Podat žádost tlačítko, vybraná čísla uložená jako text byla převedena na reálná čísla a přední apostrofy budou odstraněny najednou. Chcete-li jej převést zpět, stačí zkontrolovat Číslo na text in Převádějte mezi textem a číslem dialog. viz screenshoty:

doc odstranit úvodní apostrof 9 9 2 doc odstranit úvodní apostrof 10 10

Klepnutím získáte další informace o této funkci převodu mezi textem a číslem.

Stáhněte si zdarma zkušební verzi Kutools pro Excel!


Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

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...

karta kte 201905


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!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
didn't work for me. I acutally needed to save a .txt, and find/replace with notepad++. mine were not showing up as a ', but a ?. not at all visible in Excel. thought I would share my experience in case it helps someone else.
This comment was minimized by the moderator on the site
The 2nd option worked for me with some modifications: 1. I had to set the "Text qualifier" to the single quote2. I had to set the "Column data format" (on the next page) to Text
This comment was minimized by the moderator on the site
This is terrific! Thank you so much for providing a simple way to remove a leading apostrophe from a column. It was driving me crazy. Thanks again for all your help.
This comment was minimized by the moderator on the site
Public Sub REMOVE_APOSTROPHE()

Dim R_CELL As Range
Dim TEMP_VALUE As Variant

For Each R_CELL In Selection

TEMP_VALUE = R_CELL.Value
R_CELL.Clear
R_CELL.Value = TEMP_VALUE

Next R_CELL

End Sub
This comment was minimized by the moderator on the site
Thanks for the tip - I used text to columns; great advice thankyou
This comment was minimized by the moderator on the site
When the first two tricks do not work (this was in my case), I found another simple trick. This trick only works when all cells have the same number of characters behind an annoying ' that cannot be removed for whatever reason. 1-insert column next to cells with ' 2- enter into the new column formula "right" referring to cells with ' and insert no. characters after '. 3- Copy cells with formula-result and paste as values in the original column. 4- remove added column with formula.
This comment was minimized by the moderator on the site
Thanks, text to column work for me... :-)
This comment was minimized by the moderator on the site
i LOVE THE vba CODE in theory but it didn't work :(
This comment was minimized by the moderator on the site
Do you have any suggestions (preferably VBA) for removing apostrophes after numbers in excel? I have an excel file that takes data from an AutoCAD file and many of the values have one or two apostrophes (denoting feet or inches) but unfortunately this makes it unable to run equations on these cells. I know it is possible using "text to cells" but I was hoping using VBA would be possible.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations