Hur tar jag bort eller tar bort alla genomskinliga texter eller tecken från celler i Excel?
Den här artikeln talar om att ta bort alla genomskinliga texter eller tecken från flera celler i Excel.
Ta bort alla genomskinliga texter från celler med VBA-kod
Ta bort alla genomskinliga texter från celler med VBA-kod
Nedanstående VBA-kod kan hjälpa dig att ta bort alla texter i celler som har markerats med genomstrykning. Gör så här.
1. I kalkylbladet innehåller de genomstrykningstexter du behöver ta bort, tryck på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer klicka på fönstret Inset > Modulerna. Kopiera och klistra sedan in under VBA-koden i kodfönstret.
VBA-kod: Ta bort alla genomskinliga texter från 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. tryck på F5 eller klicka på run för att köra koden. I pop-up Kutools för Excel i dialogrutan, välj det intervall som innehåller de genomstrykningstexter du tar bort och klicka sedan på OK knapp. Se skärmdump:
Sedan tas alla texter som är markerade med en genomstrykning bort från cellerna omedelbart enligt nedanstående skärmdump.
Relaterade artiklar:
- Hur tar jag bort text före eller efter ett visst tecken i Excel?
- Hur tar jag bort oönskad text från cellen i Excel?
- Hur tar jag bort siffror från celler som innehåller texter och siffror i Excel?
- Hur tar jag bara bort text från celler som innehåller siffror och texter i Excel?
De bästa Office-produktivitetsverktygen
Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%
- återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
- Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
- Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
- Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
- Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
- Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
- Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
- Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
- Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
