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å Körning 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?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
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!
