Hvordan fjernes eller slettes alle gennemstregningstekster eller tegn fra celler i Excel?
Denne artikel taler om at fjerne alle gennemstregningstekster eller tegn fra flere celler i Excel.
Fjern alle gennemstregningstekster fra celler med VBA-kode
Fjern alle gennemstregningstekster fra celler med VBA-kode
Nedenstående VBA-kode kan hjælpe dig med at fjerne alle tekster i celler, der er markeret med gennemstregning. Gør som følger.
1. I regnearket indeholder de gennemstregningstekster, du skal fjerne, skal du trykke på andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, klik venligst Indsat > Moduler. Kopier og indsæt derefter under VBA-kode i vinduet Kode.
VBA-kode: Fjern alle gennemstregningstekster fra celler
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. Tryk på F5 eller klik på Kør knappen for at køre koden. I pop op Kutools til Excel i dialogboksen skal du vælge det interval, der indeholder de gennemstregningstekster, du vil fjerne, og klik derefter på OK knap. Se skærmbillede:
Derefter fjernes alle tekster markeret med en gennemstregning fra cellerne straks som vist nedenstående skærmbillede.
Relaterede artikler:
- Hvordan fjernes tekst før eller efter et bestemt tegn i Excel?
- Sådan fjernes uønsket tekst fra cellen i Excel?
- Hvordan fjernes tal fra celler, der indeholder tekster og tal i Excel?
- Hvordan fjernes kun tekst fra celler, der indeholder tal og tekster i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
