Прескочи на основното съдържание

Как да премахнете водещия апостроф от числа в Excel?

Автор: Xiaoyang Последна промяна: 2020-04-21
doc премахнете водещия апостроф 1

Да предположим, че имате списък с числа, предшествани от скрит апостроф, и апострофът се вижда само в лентата с формули, когато изберете клетката, както следва екранна снимка. И сега искате да премахнете водещия апостроф от стойността на клетката. Премахването им един по един ще отнеме много време, тук ще говоря за някои бързи трикове за решаване на този проблем.

Премахнете водещия апостроф от числа с поставяне като стойности

Премахнете водещия апостроф от числата с Текст в колона

Премахнете водещия апостроф от числа с VBA код

Премахнете водещия апостроф от числа с Kutools за Excel


Можете да използвате проста функция – поставете като стойности за да завършите тази задача, моля, направете следното:

1. Изберете диапазона от данни, от който искате да премахнете водещия апостроф, и натиснете Ctrl + C да ги копирате.

2. След това щракнете върху една клетка, където искате да поставите резултата, и щракнете с десния бутон, след което изберете 123 стойност от Опции за поставяне, вижте екранна снимка:

doc премахнете водещия апостроф 2

3. И можете да видите, че водещият апостроф е премахнат от числата.

doc премахнете водещия апостроф 4 2 doc премахнете водещия апостроф 5

В Excel, Текст към колона функция също може да ви помогне да решите тази задача.

1. Изберете диапазона от данни, който искате да премахнете водещия апостроф.

2, След това кликнете Дата > Текст към колона, и в Съветник за преобразуване на текст в колони, Щракнете върху завършеност бутон директно, вижте екранна снимка:

doc премахнете водещия апостроф 6

3. И сега ще откриете, че всички водещи апострофи са премахнати от числата.


Ако се интересувате от VBA код, мога да създам код, за да се справите с тази задача.

1. Задръжте натиснат ALT + F11 клавиши в Excel и отваря Microsoft Visual Basic за приложения прозорец.

2. Щракнете Поставете > Модулии поставете следния код в Прозорец на модула.

VBA код: Премахнете водещия апостроф от числата

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. След това натиснете F5 ключ, за да стартирате този код, и в изскачащото поле за подкана изберете диапазона от данни, който искате да използвате, вижте екранната снимка:

doc премахнете водещия апостроф 7

4, И после щракнете върху OK, всички водещи апострофи са премахнати от избраните клетки.


Kutools за ExcelЕ Преобразуване между текст и число помощната програма може да ви помогне да конвертирате числата, форматирани като текст, в нормални числа с едно щракване и едновременно с това да премахнете водещия апостроф.

Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни

След инсталиране Kutools за Excel, моля, направете следното:

1. Изберете диапазона от данни, който искате да използвате.

2. Щракнете Kutools > съдържание > Преобразуване между текст и число, вижте екранна снимка:

3. В Преобразуване между текст и число диалогов прозорец, изберете Текст към номер под Тип конвертиране, след което щракнете върху Ok or Добавете Обява избраните числа, съхранени като текст, са преобразувани в реални числа и водещите апострофи се премахват наведнъж. Ако искате да го конвертирате обратно, трябва само да проверите Номер към текст in Преобразуване между текст и число dialog.вижте екранни снимки:

doc премахнете водещия апостроф 9 9 2 doc премахнете водещия апостроф 10 10

Кликнете, за да научите повече за тази функция за преобразуване между текст и число.

Изтеглете и изпробвайте безплатно Kutools за Excel сега!


Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. Изтеглете и изпробвайте безплатно сега!

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
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