Как удалить все надписи в excel

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

Способы удаления текста и сохранения числовой информации

Представим, что у нас есть такая информация, располагающаяся в ячейке: «Было доставлено кусков мыла 763шт». Нам необходимо сделать так, чтобы осталось только значение 763 для проведения разнообразных математических операций. Хорошо, если нужно избавиться от текстовых данных только в одной ячейке, тогда можно реализовать удаление ручным способом, но этот вариант не подходит, когда в табличке находится слишком много разной информации. Здесь необходимо применять различные специальные функции табличного редактора.

Первый метод: использование специальной формулы

Для реализации этой процедуры можно применять специальную массивную формулу. Примерная формула выглядит так:

=ПСТР(A1;МИН(ЕСЛИ(ЕЧИСЛО(-ПСТР(А1;СТРОКА($1:$99);1));СТРОКА($1:$99)));ПРОСМОТР(2;1/ЕЧИСЛО(-ПСТР(А1;СТРОКА($1:$99);1));СТРОКА($1:$99))-МИН(ЕСЛИ(ЕЧИСЛО(-ПСТР(А1;СТРОКА($1:$99);1));СТРОКА($1:$99)))+1)

Разберем основные моменты:

1. Специальную формулу необходимо вбивать в поле при помощи комбинации кнопок «Ctrl+Shift+Enter».
2. Стоит заметить, что в таком виде массивная формула может использоваться только с текстовой информацией, в которой число знаков не больше 99. Для увеличения диапазона нужно, к примеру, заменить параметр «СТРОКА($1:$99)» на «СТРОКА($1:$200)». Иными словами, мы вместо показателя 99 вводим число знаков с запасом. Если ввести слишком большой диапазон, то обработка формулы может занять длительное время.
3. Если в текстовых данных числовые значения разбросаны по всему тексту, то формула не сможет правильно обработать информацию.

Детально рассмотрим специальную массивную формулу на таком примере: «Было доставлено кусков мыла 763шт., а заказывали 780»

1. В поле А1 располагается сама текстовая информация, из которой мы будем извлекать числовые данные.
2. Фрагмент: МИН(ЕСЛИ(ЕЧИСЛО(-ПСТР(А1;СТРОКА($1:$99);1));СТРОКА($1:$99))) позволяет определить позицию 1-го значения в поле. Получаем значение 29.
3. Фрагмент: ПРОСМОТР(2;1/ЕЧИСЛО(-ПСТР(А1;СТРОКА($1:$99);1));СТРОКА($1:$99)) позволяет определить позицию последнего значения в поле. Получаем значение 31.
4. Мы получаем такую формулу: =ПСТР(А1;29;31-29+1). Оператор ПСТР позволяет извлечь из текстовой информации, указанной 1-м аргументом, начиная с заданной позиции (29) с числом знаков, заданным 3-м аргументом.
5. В результате мы получаем:
   =ПСТР(А1;29;31-29+1)
   • =ПСТР(А1;29;2+1)
   • =ПСТР(А1;29;3)
   • 763

Бывают ситуации обратные, когда нужно реализовать операцию извлечения односоставных текстовых данных, исключив числа.

Нам необходимо сохранить только текстовую информацию.

Специальная формула применяется по аналогичному алгоритму, что и вышерассмотренная. Она выглядит так: =ПСТР(А1;ПОИСК(«-«;А1)+1;ПОИСКПОЗ(ИСТИНА;ЕЧИСЛО(—ПСТР(ПСТР(А1;ПОИСК(«-«;А1)+1;999);СТРОКА($1:$99);1));0)-1)

Здесь мы, благодаря фрагменту ПОИСК(«-«;А1) отыскали локацию тире, а затем при помощи оператора ПОИСКПОЗ нашли в извлеченных текстовых данных позицию 1-го числа. Передали эти показатели в оператор ПСТР, который реализовал все дальнейшие преобразования.

Второй метод: использование специального макроса

Эту процедуру можно реализовать при помощи специального макроса, созданного в табличном редакторе Эксель. К примеру, у нас есть табличка, в которой существует колонка с текстовой информацией и числовыми данными. Нам нужно оставить только числовые данные, убрав при этом текст.

В табличном редакторе отсутствует интегрированная функция, поэтому нам необходимо создать такой пользовательский макрос:

Public Function GetNumbers(TargetCell As Range) As String

Dim LenStr As Long

For LenStr = 1 To Len(TargetCell)

Select Case Asc(Mid(TargetCell, LenStr, 1))

Case 48 To 57

GetNumbers = GetNumbers & Mid(TargetCell, LenStr, 1)

End Select

Next

End Function

Подробная инструкция по созданию пользовательского макроса выглядит так:

1. Используя специальную комбинацию клавиш «Alt+F11», производим открытие редактора VBA. Альтернативный вариант – нажать ПКМ по рабочему листу и выбрать элемент «Исходный текст».
2. Реализуем создание нового модуля. Для осуществления этой процедуры жмем левой клавишей мышки на элемент, имеющий наименование «Insert», а затем выбираем объект «Module».
3. Производим копирование кода, который располагается выше, и вставляем его в созданный модуль. Копирование реализуем при помощи сочетания клавиш «Ctrl+C», а вставку – «Ctrl+V».
4. Теперь в необходимой ячейке, в которой мы планируем вывести только числовую информацию, вбиваем такую формулу: =GetNumbers(А1).
5. Нам нужно растянуть формулу вниз на все ячейки колонки. Для этого наводим указатель на нижний правый уголок ячейки. Курсор принял форму небольшого плюсика темного цвета. Зажимаем левую клавишу мышки и протягиваем формулу вниз до окончания таблички.

1. Готово! Мы реализовали извлечение числовой информации при помощи специального макроса.

Заключение и выводы о процедуре извлечение

Мы выяснили, что существует несколько способов, позволяющих реализовать извлечение числовой информации. Осуществить эту операцию можно при помощи создания специальных макросов в редакторе VBA или же используя массивную формулу. Каждый пользователь может самостоятельно выбрать для себя наиболее удобный способ, который позволит ему убрать текстовую информацию из ячейки и оставить при этом числовые данные.

Есть ли уловки для удаления нескольких текстовых полей в книге? Удаление каждого текстового поля по одному занимает много времени. На самом деле, есть несколько способов быстро удалить все текстовые поля:

• Удалите все текстовые поля или другие объекты на активном листе с помощью функции Перейти
• Удалите все текстовые поля на активном листе с кодом VBA
• Удалите все текстовые поля на активном листе, выбранных листах или книге с помощью удобной функции

Удалите все текстовые поля или другие объекты на активном листе с помощью функции Перейти

1. Нажмите F5 or Ctrl + G для отображения Перейти к диалога, а затем нажмите Особый.., см. снимок экрана:

2. В выскочившем Перейти к специальному диалоговое окно, выберите Объекты, А затем нажмите OK кнопка, см. снимок экрана:

3. И все объекты на текущем листе были выбраны сразу, см. Снимок экрана:

4. Затем вам просто нужно нажать кнопку Удалить нажмите клавишу на клавиатуре, чтобы удалить все эти текстовые поля, а также другие объекты.

Внимание: Этот метод не только удалит все текстовые поля, но и удалит все виды фигур на активном листе, включая изображения, клипы, фигуры, SmartArt, диаграммы и т. Д.

Удалите все текстовые поля на активном листе с кодом VBA

Иногда вам может потребоваться удалить только текстовые поля, но оставшиеся другие формы, такие как диаграммы, изображения, макрос VBA будет хорошим выбором для удаления всех текстовых полей только на активном листе, выполните следующие действия:

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

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

Код VBA: удалить все текстовые поля с текущего рабочего листа:

Sub DeleteAllTextBoxes()
ActiveSheet.TextBoxes.Delete
End Sub

3, нажмите F5 ключ для запуска этого макроса, и удаляются только текстовые поля в текущем листе, см. снимки экрана:

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

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

Примечание:Чтобы применить это Удалить иллюстрации и объекты, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.

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

1, Нажмите Кутулс > Удалить > Удалить иллюстрации и объекты, см. снимок экрана:

2. В Удалить иллюстрации и объекты диалоговое окно, проверьте Текстовые поля вариант, а затем укажите область, из которой вы хотите удалить текстовые поля, см. снимок экрана:

3, Затем нажмите OK. И все текстовые поля будут удалены сразу на активном листе, выбранных листах или всей книге в соответствии с выбранными вами параметрами.

Tips: Kutools for Excel‘s Иллюстрации и объекты функция может помочь нам удалить все диаграммы, линии, изображения, автофигуры, умные рисунки, текстовые поля, связанные объекты OLE и встроенные объекты OLE на активном листе, выбранном листе или на всех листах текущей книги по мере необходимости.  Нажмите, чтобы узнать больше…

Больше относительных статей:

Оставить в ячейке только числа (удалить весь текст)

Данная команда позволяет массово удалять из текст множества ячеек весь текст кроме чисел:

Чтобы воспользоваться данной командой выделите ячейки с текстом из которых вы хотите удалить текст и оставить числа, перейдите во вкладку «ЁXCEL» Главного меню, нажмите кнопку «Ячейки» и выберите команду «Оставить в ячейке только числа (удалить весь текст)»:

В выделенных ячейках останутся только числа.

Для отмены операции нажмите кнопку отмены:

На работе один из сотрудников выполняет дефектовку, и присылает девочкам в сметно-договорном отделе файл Excel с это дефектовкой. Зовут меня девочки как-то раз и показывают этот файл… Таблица на 1 лист формата А4, а весит — 50 мегабайт!!!

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

Открыв файл я немного подофигел. Внутри в одном из столбцов практически в каждой ячейке помимо самого текста были вставлены и элементы формы — textbox.

И ничего бы страшного, но выделив один из этих элементов я увидел что его порядковый номер 3762… Теперь стало понятно откуда растут уши у размера файла. В этом файле были тысячи textbox. Вручную удалять весь этот срач — мартышкин труд. Поэтому я немного потеребил VBA и сообразил макрос.

Sub DeleteAllTextboxies()

  Dim i As Long

  With ActiveSheet.Shapes
    For i = .Count To 1 Step -1

      If .Item(i).Type = msoTextBox Then 
        .Item(i).Delete
      End If

    Next i
  End With

End Sub

Создаем модуль, вставляем туда код, запускаем, ждем пока вс обработается, проверяем что все почистилось, удаляем модуль. На этом и всё 🙂 Не забываем сохранить почищенный файл.

ЗЫ — скрипты в MSO — зло. Так же как и формы. Ужасно-костыльное решение с приветом из 90-х.
Поделиться ссылкой: