Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako odstraniti ali izbrisati vsa prečrtana besedila ali znake iz celic v Excelu?

Ta članek govori o odstranjevanju vseh prečrtanih besedil ali znakov iz več celic v Excelu.

Odstranite vsa prečrtana besedila iz celic s kodo VBA


Odstranite vsa prečrtana besedila iz celic s kodo VBA


Spodnja koda VBA vam lahko pomaga odstraniti vsa besedila v celicah, ki so označene s prečrtanjem. Prosimo, naredite na naslednji način.

1. V delovnem listu so prikazana prečrtana besedila, ki jih morate odstraniti, nato pritisnite druga + F11 tipke hkrati odpreti Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Razširjenje > Moduli. Nato kopirajte in prilepite pod kodo VBA v okno Code.

VBA koda: Odstranite vsa prečrtana besedila iz celic

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. Pritisnite F5 ali kliknite na Run gumb za zagon kode. Pri pojavu Kutools za Excel pogovorno okno, izberite obseg, ki vsebuje prečrtana besedila, ki jih boste odstranili, in kliknite na OK gumb. Prikaz slike:

Potem se vsa besedila, označena s prečrtanjem, takoj odstranijo iz celic, kot je prikazano spodaj.


Sorodni članki:



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Girish · 3 months ago
    can it be done through python, pandas ?
    If yes can anybody help me out how to implement this ?
    • To post as a guest, your comment is unpublished.
      crystal · 3 months ago
      Hi Girish,
      The code hasn't been tested in python, pandas. Sorry can't help you with that. Thanks for commenting.
  • To post as a guest, your comment is unpublished.
    Upul · 1 years ago
    This does not work. Excel goes into Not Responding.
    • To post as a guest, your comment is unpublished.
      Josh · 3 months ago
      It works in small scale. I assume that the reason it goes into Not Responding is because the Macro takes forever when you have a lot of data to get through. This Macro is checking every single character for strike through.

      I would recommend adding code that reformats the cell when it is done because I had several cells where the code removed the strikethrough text but the remaining text was still in strikethrough. I believe this is because the formatting of the full cell was strikethrough with the non strikethrough text being formatted differently, so just an FYI.
    • To post as a guest, your comment is unpublished.
      crystal · 10 months ago
      Good day,
      Sorry for the inconvenience. Would you provide your Office version? Thanks for your comment.
      • To post as a guest, your comment is unpublished.
        Boris · 7 months ago
        Same here.

        I am using Office 365 ProPlus