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

Как быстро убрать тире с ячеек в Excel?

Предположим, что в ячейках вашего рабочего листа есть список почтовых индексов или длинных номеров ISBN, а длинные номера содержат тире, для какой-то цели вам нужно избавиться от тире между числами (как показано на следующих снимках экрана). Есть ли какие-нибудь быстрые способы убрать эти дефисы между числами в excel?

Удалить тире из ячеек с формулой
Удалите тире из ячеек с кодом VBA
Легко удаляйте тире из ячеек с помощью Kutools for Excel


Удалить тире из ячеек с формулой

С этой ЗАМЕНА функции, числа будут преобразованы в текстовые значения, поэтому, когда вы удалите дефис, ни начальный 0 не будет удален, ни числа не станут экспонентами. Пожалуйста, сделайте следующее:

1. В соседней пустой ячейке, например C1, введите следующую формулу: = ПОДСТАВИТЬ (A1; "-"; ""), см. снимок экрана:

2, нажмите Enter и выберите ячейку C1, затем перетащите маркер заполнения в диапазон, который вы хотите содержать эту формулу. И дефисы между цифрами убраны. Смотрите скриншот:

Легко удаляйте все числовые, нечисловые или указанные символы, такие как "тире", из ячеек в Excel:

Kutools for Excel's Удалить символы Утилита поможет вам легко удалить все числовые, нечисловые или указанные символы из выбранных ячеек в Excel.
Скачайте и попробуйте прямо сейчас! (30-дневный бесплатный пробный период)


Удалите тире из ячеек с кодом VBA

С помощью следующего кода VBA вы также можете удалить дефисы между числами из диапазона ячеек.

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

2. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

3. Нажмите Вставить > Модулии вставьте следующий код в окно модуля.

VBA: убрать тире между числами

Sub DeleteDashes()
'Update 20130907
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)
Application.ScreenUpdating = False
For Each rng In WorkRng
    rng.NumberFormat = "@"
    rng.Value = VBA.Replace(rng.Value, "-", "")
Next
Application.ScreenUpdating = True
End Sub

4, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно, в котором вам будет предложено выбрать диапазон, который вы хотите использовать. Смотрите скриншот:

5, Затем нажмите OK, тире между числами убраны с ячеек. И числовой формат преобразуется в текстовый формат. Смотрите скриншоты:


Удалите тире из ячеек с помощью Kutools for Excel

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

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Выберите диапазон ячеек, в которых необходимо удалить тире, и нажмите Кутулс > Текст > Удалить символы, см. снимок экрана:

2. В Удалить символы диалоговое окно, отметьте На заказ вариант и введите "-»В текстовое поле, затем вы сможете просмотреть результаты предварительный просмотр Панель. Затем нажмите кнопку OK кнопку, чтобы удалить все дефисы в выбранных ячейках. Смотрите скриншот:

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

  Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.


Легко удаляйте тире из ячеек с помощью Kutools for Excel


Статьи по теме:

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

🤖 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
this and the concatenate command have saved my brain from melting! thank you!
This comment was minimized by the moderator on the site
Sub DeleteDashes() 'Update 20130907 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) Application.ScreenUpdating = False For Each rng In WorkRng rng.NumberFormat = "@" rng.Value = VBA.Replace(rng.Value, "-", "") Next Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
unimpressed with your instructions - using the =SUBSTITUTE formula above, the leading zeros are stripped
This comment was minimized by the moderator on the site
THANK YOU EXTEND OFFICE IT'S VERY HELPFUL AND SIMPLE.. KUDOS!
This comment was minimized by the moderator on the site
Use the find and replace feature. (Ctrl + F, click the replace tab). Enter "-" Into the find field (or whatever you're trying to remove) and hit the replace button. Make sure you leave the "Replace with" field blank.
This comment was minimized by the moderator on the site
Great it works
This comment was minimized by the moderator on the site
WOW.... You win this whole thread, THANK YOU!!!
This comment was minimized by the moderator on the site
Hi, This is manish gupta and it is the good code of removing the border areas in excel sheets. thanks and regards manish gupta
This comment was minimized by the moderator on the site
HI , MY PROBMEL SOLVE PLEASE
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations