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

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

Удаление всех текстов с зачеркиванием из ячеек с помощью кода VBA

Удаление всех текстов с зачеркиванием из ячеек с помощью кода VBA

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

1. В листе, содержащем тексты с зачеркиванием, которые нужно удалить, одновременно нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите «Вставка» > «Модуль». Затем скопируйте и вставьте приведенный ниже код 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 или кнопку «Выполнить», чтобы запустить код. В появившемся диалоговом окне Kutools for Excel выберите диапазон, содержащий тексты с зачеркиванием, которые вы хотите удалить, а затем нажмите кнопку «ОК». См. скриншот:

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

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!

Связанные статьи:

• Как удалить текст перед или после определенного символа в Excel?
• Как удалить ненужный текст из ячейки в Excel?
• Как удалить числа из ячеек, содержащих текст и числа в Excel?
• Как удалить только текст из ячеек, содержащих числа и текст в Excel?