Note: The other languages of the website are Google-translated. Back to English

Как удалить или удалить зачеркнутый текст или символы из ячеек в Excel?

В этой статье рассказывается об удалении всего зачеркнутого текста или символов из нескольких ячеек в Excel.

Удалите весь зачеркнутый текст из ячеек с кодом VBA


Удалите весь зачеркнутый текст из ячеек с кодом VBA

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

1. На листе, содержащем зачеркнутые тексты, которые необходимо удалить, нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окно, пожалуйста, нажмите Вставка > Модули. Затем скопируйте и вставьте ниже код VBA в окно кода.

Код VBA: удалить все зачеркнутые тексты из ячеек

Sub DelStrikethroughText()
    Dim xRg As Range, xCell As Range
    Dim xStr As String
    Dim I As Long
    On Error Resume Next
    Set xRg = Application.InputBox("Please select range:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = Fase
        For Each xCell In xRg
            If IsNumeric(xCell.Value) And xCell.Font.Strikethrough Then
                xCell.Value = ""
            ElseIf Not IsNumeric(xCell.Value) Then
                For I = 1 To Len(xCell)
                    With xCell.Characters(I, 1)
                        If Not .Font.Strikethrough Then
                            xStr = xStr & .Text
                        End If
                    End With
                Next
                xCell.Value = xStr
                xStr = ""
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3. нажмите F5 ключ или щелкните Run кнопку для запуска кода. В всплывающем Kutools for Excel в диалоговом окне выберите диапазон, содержащий зачеркнутый текст, который вы хотите удалить, а затем щелкните OK кнопка. Смотрите скриншот:

Затем все тексты, отмеченные зачеркиванием, сразу удаляются из ячеек, как показано на скриншоте ниже.


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


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

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (10)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Это не работает. Excel переходит в режим «Не отвечает».
Этот комментарий был сведен к минимуму модератором на сайте
Добрый день,
Приносим извинения за доставленные неудобства. Не могли бы вы предоставить свою версию Office? Спасибо за ваш комментарий.
Этот комментарий был сведен к минимуму модератором на сайте
Тоже самое.

Я использую Office 365 профессиональный плюс
Этот комментарий был сведен к минимуму модератором на сайте
Он работает в малых масштабах. Я предполагаю, что причина, по которой он переходит в состояние «Не отвечает», заключается в том, что макрос занимает вечность, когда у вас есть много данных для обработки. Этот макрос проверяет каждый символ на зачеркивание.

Я бы рекомендовал добавить код, который переформатирует ячейку, когда это будет сделано, потому что у меня было несколько ячеек, где код удалил зачеркнутый текст, но оставшийся текст все еще был зачеркнут. Я полагаю, это связано с тем, что форматирование полной ячейки было зачеркнуто, а текст без зачеркивания отформатирован по-другому, так что просто к сведению.
Этот комментарий был сведен к минимуму модератором на сайте
можно ли это сделать через python, pandas?
Если да, может ли кто-нибудь помочь мне, как это реализовать?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Гириш,
Код не тестировался на питоне, пандах. Извините, не могу вам в этом помочь. Спасибо за комментарий.
Этот комментарий был сведен к минимуму модератором на сайте
Я использую его для всей колонки, и мой Excel никогда не возвращается....
Этот комментарий был сведен к минимуму модератором на сайте
привет сан,
Не могли бы вы предоставить версию Excel, которую вы используете?
Код работает хорошо в моем случае.
Извините за причиненные неудобства.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, ребята, это сработало для меня, но в некоторых случаях это каким-то образом меняет текст, который не отформатирован как зачеркнутый, а зачеркнутый. Простое исправление, позволяющее вернуться назад и выборочно проверить данные в определенных случаях и отменить зачеркивание диапазона.
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте, какую версию Excel вы используете?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL