Satura rādītājs
Lai gan pārsvītrotās šūnas ir lasāmas, daudziem lasītājiem tas ir neērti. Šajā rakstā uzzināsiet, kā Excel programmā 3 vienkāršos veidos noņemt pārsvītrojumu.
Lejupielādēt prakses veidni
Bezmaksas prakses Excel veidni varat lejupielādēt no šejienes.
Pārsvītrojuma noņemšana programmā Excel.xlsm
3 vienkārši veidi, kā Excel programmā noņemt pārsvītrojumu
Izmantojot šādu datu kopu kā piemēru, mēs uzzināsim, kā Excel programmā 3 dažādos veidos noņemt svītrojumu.
1. Tastatūras īsceļu kombinācija, lai noņemtu pārsvītrojumu programmā Excel
Pārsvītrojuma noņemšana no Excel ar Tastatūras saīsnes ,
- Pirmkārt, atlasiet šūnas ar pārsvītrojumu.
- Pēc tam nospiediet Ctrl+5 uz tastatūras.
Tas ir viss. Vienkārši nospiežot Ctrl+5 tastatūrā tiks noņemtas visas svītrojuma zīmes no šūnām.
2. Formāta šūnu funkcija, lai Excel programmā Excel dzēstu pārsvītrojumu
Mēs varam izmantot Excel Šūnu formatēšana funkciju, lai svītrotu svītrojumu šūnās.
Soļi:
- Pirmkārt, atlasiet šūnas ar pārsvītrojumu.
- Tālāk, sadaļā Sākums izvēlieties cilni Šūnu formatēšana opcija (parādīta attēlā zemāk).
- No Šūnu formatēšana uznirstošajā logā, dodieties uz Fonts cilne un noņemiet atzīmi izvēles rūtiņu blakus Pārsvītrot saskaņā ar Ietekme iespēja.
- Spiediet LABI .
Šis process no šūnām noņems visus svītrojumus.
3. VBA, lai no Excel noņemtu pārsvītrotās rindas
Ja vēlaties no Excel dzēst visas svītrotās rindas, tad VBA ir visefektīvākā un drošākā metode uzdevuma izpildei.
Turpmāk ir aprakstīti soļi, kā no Excel dzēst svītrotās rindas.
Soļi:
- Spiediet Alt + F11 uz tastatūras vai atveriet cilni Izstrādātājs -> Visual Basic lai atvērtu Visual Basic redaktors .
- Iznirstošajā koda logā izvēlnes joslā noklikšķiniet uz Ievietot -> Modulis .
- Koda logā nokopējiet un ielīmējiet šādu kodu.
Sub DeleteStrRows() Dim r As Range Dim iCheck As Boolean Dim i As Integer Dim iRows As Integer iRows = Selection.Rows.Count If iRows> 2 Then For i = iRows To 1 Step -1 iCheck = False For Each r In Selection.Rows(i).Cells iCheck = IsNull(r.Font.Strikethrough) If Not iCheck Then iCheck = r.Font.StrikethroughIf iCheck Then Exit For Next r If iCheck Then Selection.Rows(i).EntireRow.Delete Next i End If End Sub Tagad jūsu kods ir gatavs darbam.
- Atgriezieties pie interešu darba lapa kur ir pārsvītrotās rindas, atlasīt rindas un Palaist makro.
Tādējādi no Excel darblapas tiks dzēstas visas svītrotās rindas.
Secinājums
Šajā rakstā tika parādīts, kā Excel programmā 3 dažādos un vienkāršos veidos noņemt svītrojumu. . Es ceru, ka šis raksts jums ir bijis ļoti noderīgs. Jūs varat uzdot jebkādus jautājumus par šo tēmu.
