Ugrás a tartalomra

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

Ha nem félkövér, távolítsa el a sorokat/cellákat a Kutools for Excel segítségével 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 az Excel számára 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 az Excel számára'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


Ha nem félkövér, távolítsa el a sorokat/cellákat a Kutools for Excel segítségével

A fenti módszerek nem elég egyszerűek, ebben az esetben használhatja Kutools az Excel számára'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 az Excel számára, 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 a következőket:

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 hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz 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 naponta több száz kattintással csökkenti az egér kattintását!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations