Как удалить или удалить зачеркнутый текст или символы из ячеек в 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 Sub3. нажмите F5 ключ или щелкните Run кнопку для запуска кода. В всплывающем Kutools for Excel в диалоговом окне выберите диапазон, содержащий зачеркнутый текст, который вы хотите удалить, а затем щелкните OK кнопка. Смотрите скриншот:
Затем все тексты, отмеченные зачеркиванием, сразу удаляются из ячеек, как показано на скриншоте ниже.
Статьи по теме:
- Как удалить текст до или после определенного символа в Excel?
- Как удалить ненужный текст из ячейки в Excel?
- Как в Excel убрать числа из ячеек, содержащих тексты и числа?
- Как удалить только текст из ячеек, содержащих числа и текст в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
