Як видалити або видалити всі закреслені тексти або символи з комірок у 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 або клацніть на прогін для запуску коду. У спливаючому Kutools для Excel діалоговому вікні, виберіть діапазон, що містить закреслені тексти, які ви видалите, а потім клацніть на OK кнопку. Дивіться знімок екрана:
Потім усі тексти, позначені закресленням, негайно видаляються з комірок, як показано на знімку екрана нижче.
Статті по темі:
- Як видалити текст до або після певного символу в Excel?
- Як видалити небажаний текст з комірки в Excel?
- Як видалити цифри з комірок, які містять тексти та цифри в Excel?
- Як видалити лише текст із комірок, що містять цифри та тексти в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!