Note: The other languages of the website are Google-translated. Back to English
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

Hogyan lehet eltávolítani a cellákat vagy a sorokat, ha nem félkövér az Excelben?

Tegyük fel, hogy van egy sor adata vastag betűs és nem félkövér betűs cellákkal, ahogy az alábbi képen látható. Most arra van szüksége, hogy távolítsa el a cellákat vagy a sorokat, ha nincs félkövér. A félkövér betűs cellák manuális eltávolítása helyett ez az oktatóanyag bemutatja azokat a trükköket, amelyekkel gyorsan megoldhatja az Excel programot.

doc eltávolítás, ha nem félkövér 1

Távolítsa el a sorokat, ha nincs VBA-val félkövérrel feltüntetve

Távolítsa el a cellákat, ha nincsenek félkövérek a Keresés és csere, valamint a Tartománysegítő kiválasztása lehetőséggel

Távolítsa el a sorokat / cellákat, ha nem félkövér a Kutools for Excel alkalmazással jó ötlet3


v Távolítsa el a sorokat, ha nincs VBA-val félkövérrel feltüntetve

A sorok eltávolításához, ha nincsenek félkövérrel feltüntetve, használhat VBA kódot a kezeléshez.

1. nyomja meg F11 + Alt gombok a Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, majd beillesztette a VBA kód alá az újba Modulok ablak.

VBA: Távolítsa el a sorokat, ha nincs félkövér.

Sub DeleteNonBolded()
'UpdatebyKutoolsforExcel20151116
    Dim xRg As Range
    Dim xDelRg As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim I As Long
    Dim xBold As Variant
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "This VBA cannot support multiple range", , "Kutools for Excel"
        Exit Sub
    End If
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        xBold = xRg.Rows(I).Cells.Font.Bold
        If TypeName(xBold) = "Boolean" Then
            If xBold = False Then
                If xDelRg Is Nothing Then
                    Set xDelRg = xRg.Rows(I).EntireRow
                Else
                    Set xDelRg = Union(xRg.Rows(I).EntireRow, xDelRg)
                End If
            End If
        End If
    Next
    xDelRg.Delete
    Application.ScreenUpdating = xUpdate
End Sub

3. nyomja meg F5 gombot a VBA kód futtatásához. A felbukkanóban Kutools for Excel párbeszédpanelen adja meg azt a tartományt, amelyet félkövér cellák nélkül eltávolít a sorok közül, majd kattintson a gombra OK gombot.

doc eltávolítás, ha nem félkövér 2

És akkor láthatja, hogy eltávolították azokat a sorokat, amelyek nem tartalmaznak félkövér betűket

doc eltávolítás, ha nem félkövér 1doc nyíl jobbradoc eltávolítás, ha nem félkövér 3

Megjegyzés: a sorokat csak akkor lehet eltávolítani, ha az ugyanabban a sorban lévő összes cellát félkövér betűvel nem jelöljük.


Távolítsa el a cellákat, ha nincsenek félkövérek a Keresés és csere, valamint a Tartománysegítő kiválasztása lehetőséggel

Ha csak a cella tartalmát akarja eltávolítani a félkövér betűs cellákból, akkor a Keresés és csere funkcióval előbb kiválaszthatja a félkövér cellákat, majd Kutools for Excel'S Válassza a Tartománysegítő lehetőséget a félkövér félkövér cellák kijelölésének megfordításához, majd távolítsa el a tartalmát.

1. Válassza ki azt az adattartományt, ahonnan a félkövér betűs cellákat el kívánja távolítani, majd nyomja meg az gombot Ctrl + F engedélyezni Keresés és csere kattintson a gombra Opciók gomb. Lásd a képernyőképet:

doc eltávolítás, ha nem félkövér 4

2. kettyenés kialakított menni Keresse meg a Formátum lehetőséget párbeszédpanelen és alatt betűtípus lapon válassza ki a lehetőséget tól Betű stílus lista. Lásd a képernyőképet:

doc eltávolítás, ha nem félkövér 5

3. kettyenés OK > Találd meg mindet, és az összes félkövér fél cellát felsorolja a Keresés és csere párbeszédpanelt, és nyomja meg a gombot Ctrl + A az összes kiválasztásához, majd zárja be a Keresés és csere párbeszéd. Lásd a képernyőképet:

doc eltávolítás, ha nem félkövér 6

4. Ezután tartsa kijelölve ezeket a cellákat, majd kattintson Kutools > választ > Válassza a Tartománysegítő lehetőséget. Lásd a képernyőképet:

doc eltávolítás, ha nem félkövér 7

5. A felbukkanó párbeszédpanelen ellenőrizze Fordított kiválasztás opciót, majd válassza ki az eredeti adattartományt. Most láthatja, hogy a kijelölés megfordult. Lásd a képernyőképet:

doc eltávolítás, ha nem félkövér 8

6. kettyenés közel. Most nyomja meg töröl gombot a cella tartalmának eltávolításához a nem félkövér betűkből.

doc eltávolítás, ha nem félkövér 9


Távolítsa el a sorokat / cellákat, ha nem félkövér a Kutools for Excel alkalmazással

A fenti módszerek nem elég egyszerűek, ebben az esetben használhatja Kutools for Excel'S Válassza a Cellák formázással lehetőséget segédprogrammal a nem félkövér betűs cellák gyors azonosításához, majd eltávolításához.

Kutools for Excel, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Után ingyenes telepítés Kutools for Excel, kérjük, tegye az alábbiak szerint:

1. Válassza ki a kívánt adattartományt, majd kattintson a gombra Kutools > választ > Válassza a Cellák formázással lehetőséget. Lásd a képernyőképet:

doc eltávolítás, ha nem félkövér 15

2. A felbukkanó párbeszédpanelen kattintson a gombra Válassza a Formázás cellából lehetőséget gombra kattintva kiválaszthat egy nem félkövér betűs cellát az adattartományból, majd ellenőrizze csak a Betűtípus alábbi listából. Lásd a képernyőképet:

doc eltávolítás, ha nem félkövér 11

3. kettyenés Ok, és megjelenik egy párbeszédpanel, amely emlékezteti Önt a kijelölt cellák számára, csak kattintson Igen bezárni.

doc eltávolítás, ha nem félkövér 12

Most kijelöli az összes nem félkövér betűs cellát, és nyomja meg a gombot töröl gombot a cellatartalom eltávolításához. Vagy ha el akarja távolítani a nem félkövéreket tartalmazó sorokat, kattintson a jobb gombbal a kijelölt cellák egyikére, és válassza a lehetőséget töröl > Teljes sor. Képernyőképek megtekintése:

doc eltávolítás, ha nem félkövér 13doc nyíl jobbradoc eltávolítás, ha nem félkövér 14

Relatív cikkek:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Super Formula Bar (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte tab 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és minden nap több száz kattintással csökkenti az egér kattintását!
officetab alja
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.