Przejdź do głównej zawartości

Jak usunąć wiodący apostrof z liczb w programie Excel?

doc usuń początkowy apostrof 1

Przypuśćmy, że masz listę liczb poprzedzonych ukrytym apostrofem, a apostrof jest widoczny tylko na pasku formuły po wybraniu komórki, jak na poniższym zrzucie ekranu. A teraz chcesz usunąć wiodący apostrof z wartości komórki. Usunięcie ich jeden po drugim zajmie dużo czasu, tutaj opowiem o kilku szybkich sztuczkach, aby rozwiązać ten problem.

Usuń początkowy apostrof z liczb za pomocą wklejania jako wartości

Usuń początkowy apostrof z liczb z tekstem na kolumnę

Usuń wiodący apostrof z liczb za pomocą kodu VBA

Usuń wiodący apostrof z liczb za pomocą Kutools for Excel


Możesz użyć prostej funkcji - wklej jako wartości aby zakończyć to zadanie, wykonaj następujące czynności:

1. Wybierz zakres danych, z którego chcesz usunąć wiodący apostrof i naciśnij Ctrl + C skopiować je.

2. Następnie kliknij jedną komórkę, w której chcesz umieścić wynik, i kliknij prawym przyciskiem myszy, a następnie wybierz Wartość 123 z Opcje wklejaniazobacz zrzut ekranu:

doc usuń początkowy apostrof 2

3. Jak widać, wiodący apostrof został usunięty z liczb.

doc usuń początkowy apostrof 4 2 doc usuń początkowy apostrof 5

W programie Excel Tekst do kolumny funkcja może również pomóc w rozwiązaniu tego zadania.

1. Wybierz zakres danych, z którego chcesz usunąć wiodący apostrof.

2. Następnie kliknij Dane > Tekst do kolumny, oraz w Konwertuj Kreator tekstu na kolumnękliknij koniec przycisk bezpośrednio, patrz zrzut ekranu:

doc usuń początkowy apostrof 6

3. A teraz przekonasz się, że wszystkie wiodące apostrofy zostały usunięte z liczb.


Jeśli interesuje Cię kod VBA, mogę stworzyć kod, który zajmie się tym zadaniem.

1. Przytrzymaj ALT + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: Usuń wiodący apostrof z liczb

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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, aw wyskakującym okienku zachęty wybierz zakres danych, którego chcesz użyć, zobacz zrzut ekranu:

doc usuń początkowy apostrof 7

4. A następnie kliknij OK, wszystkie wiodące apostrofy zostały usunięte z wybranych komórek.


Kutools dla programu Excel'S Konwertuj między tekstem a liczbą narzędzie może pomóc Ci przekonwertować liczby sformatowane jako tekst na zwykłe liczby za pomocą jednego kliknięcia i jednocześnie usunąć wiodący apostrof.

Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni

Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:

1. Wybierz zakres danych, którego chcesz użyć.

2. Kliknij Kutools > Treść > Konwertuj między tekstem a liczbązobacz zrzut ekranu:

3, w Konwertuj między tekstem a liczbą okno dialogowe, wybierz Tekst na numer pod Konwertuj typ, następnie kliknij Ok or Aplikuj przycisk, wybrane liczby zapisane jako tekst zostały przekonwertowane na liczby rzeczywiste, a wiodące apostrofy są natychmiast usuwane. Jeśli chcesz go przekonwertować z powrotem, wystarczy sprawdzić Numer do tekstu in Konwertuj między tekstem a liczbą dialog. zobacz zrzuty ekranu:

doc usuń początkowy apostrof 9 9 2 doc usuń początkowy apostrof 10 10

Kliknij, aby dowiedzieć się więcej o tej funkcji Konwertuj między tekstem a liczbami.

Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!


Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz!

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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