Перейти к основному содержанию

Как убрать апостроф в начале чисел в Excel?

Автор: Сяоян Последнее изменение: 2020 июля 04 г.
док удалить начальный апостроф 1

Предположим, у вас есть список чисел, которым предшествует скрытый апостроф, и апостроф отображается только на панели формул, когда вы выбираете ячейку, как показано на следующем снимке экрана. А теперь вы хотите удалить начальный апостроф из значения ячейки. Чтобы удалить их по одному, потребуется много времени, здесь я расскажу о некоторых быстрых приемах решения этой проблемы.

Удалите начальный апостроф из чисел с помощью вставки в качестве значений

Удалите начальный апостроф из чисел с текстом в столбец

Удалите начальный апостроф из чисел с кодом VBA

Удалите начальный апостроф из чисел с помощью Kutools for Excel


Вы можете использовать простую функцию - вставить как значения чтобы завершить эту задачу, сделайте следующее:

1. Выберите диапазон данных, в котором вы хотите удалить начальный апостроф, и нажмите Ctrl + C скопировать их.

2. Затем щелкните одну ячейку, в которую вы хотите поместить результат, и щелкните правой кнопкой мыши, затем выберите Значение 123 из Параметры вставки, см. снимок экрана:

док удалить начальный апостроф 2

3. И вы можете видеть, что начальный апостроф был удален из чисел.

док удалить начальный апостроф 4 2 док удалить начальный апостроф 5

В Excel Текст в столбец функция также может помочь вам решить эту задачу.

1. Выберите диапазон данных, в котором вы хотите удалить начальный апостроф.

2. Затем нажмите Данные > Текст в столбецИ в Мастер преобразования текста в столбцы, нажмите Завершить кнопку напрямую, см. снимок экрана:

док удалить начальный апостроф 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 ключ для запуска этого кода, и в появившемся окне подсказки выберите диапазон данных, который вы хотите использовать, см. снимок экрана:

док удалить начальный апостроф 7

4, Затем нажмите OK, все начальные апострофы удалены из выбранных ячеек.


Kutools for ExcelАвтора Преобразование текста в число Утилита может помочь вам преобразовать числа, отформатированные как текст, в обычные числа одним щелчком мыши и одновременно удалить начальный апостроф.

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

После установки Kutools for Excel, пожалуйста, сделайте следующее:

1. Выберите диапазон данных, который вы хотите использовать.

2. Нажмите Кутулс > Содержание > Преобразование текста в число, см. снимок экрана:

3. В Преобразование текста в число диалоговое окно, выберите Текст на номер под Тип преобразования, затем нажмите Ok or Применить При нажатии кнопки выбранные числа, сохраненные в виде текста, были преобразованы в действительные числа, а начальные апострофы сразу удаляются. Если вы хотите преобразовать его обратно, нужно только проверить Число в текст in Преобразование текста в число dialog.см. скриншоты:

док удалить апостроф в начале 9 9 2 док удалить апостроф в начале 10 10

Нажмите, чтобы узнать больше об этой функции преобразования текста в число.

Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!


Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

Лучшие инструменты для офисной работы

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

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 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