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?
De bedste Office-produktivitetsværktøjer
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
- Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
- Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
- Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
- Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
- Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
- Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
- Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
- Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
- Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
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!
