Turinys
Nors perbrauktos ląstelės yra įskaitomos, daugeliui skaitytojų tai nepatogu. Šiame straipsnyje sužinosite, kaip 3 paprastais būdais pašalinti perbrauktas langelius "Excel" programoje.
Atsisiųsti praktikos šabloną
Nemokamą praktinį "Excel" šabloną galite atsisiųsti iš čia.
Pašalinti perbrauktą tekstą programoje Excel.xlsm
3 paprasti būdai, kaip "Excel" pašalinti perbraukimą
Remdamiesi toliau pateiktu duomenų rinkiniu, sužinosime, kaip "Excel" programoje 3 skirtingais būdais pašalinti perbraukimą.
1. Klaviatūros spartusis klavišas perbraukimui pašalinti "Excel" programoje
Perbraukimo pašalinimas iš "Excel" naudojant Spartusis klavišo klavišas ,
- Pirma, pasirinkite ląsteles perbraukta.
- Tada paspauskite Ctrl+5 ant klaviatūros.
Tai viskas. Tiesiog paspauskite Ctrl+5 klaviatūroje pašalinsite visus perbrauktus langelius.
2. "Excel" formato ląstelių funkcija, skirta ištrinti perbraukimą
Galime naudoti "Excel Formuoti ląsteles funkciją, kad ištrintumėte perbraukimą iš langelių.
Žingsniai:
- Pirma, pasirinkite ląsteles perbraukta.
- Toliau, į Pagrindinis skirtuką, pasirinkite Formuoti ląsteles parinktį (parodyta toliau pateiktame paveikslėlyje).
- Iš Formuoti ląsteles iššokantį langą, eikite į Šriftas skirtukas ir panaikinkite žymėjimą. žymimąjį langelį šalia Perbrauktas pagal Poveikis galimybė.
- Paspauskite GERAI .
Šis procesas pašalins visus perbrauktus langelius.
3. VBA perbrauktoms eilutėms iš "Excel" pašalinti
Jei norite iš "Excel" ištrinti visas perbrauktas eilutes, tada VBA yra veiksmingiausias ir saugiausias būdas užduočiai atlikti.
Toliau pateikiami veiksmai, kaip ištrinti perbrauktas eilutes iš "Excel".
Žingsniai:
- Paspauskite Alt + F11 klaviatūroje arba eikite į skirtuką Programuotojas -> "Visual Basic atidaryti "Visual Basic" redaktorius .
- Iššokančiame kodo lange meniu juostoje spustelėkite Insert -> Modulis .
- Kodo lange nukopijuokite ir įklijuokite šį kodą.
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 Dabar jūsų kodas paruoštas paleisti.
- Grįžkite į dominantis darbalapis kur yra perbrauktos eilutės, pasirinkite eilutes ir Paleisti makrokomandą.
Taip ištrinsite visas perbrauktas eilutes iš "Excel" darbalapio.
Išvada
Šiame straipsnyje parodyta, kaip "Excel" programoje 3 skirtingais ir paprastais būdais pašalinti perbraukimą . Tikiuosi, kad šis straipsnis jums buvo labai naudingas. Drąsiai užduokite bet kokius su šia tema susijusius klausimus.
