Note: The other languages of the website are Google-translated. Back to English
Log på  \/ 
x
or
x
Tilmeld  \/ 
x

or

Hvordan fjernes celler eller rækker, hvis de ikke er fede i Excel?

Hvis du antager, at du har en række data med fedceller og ikke fedceller, som vist nedenfor i skærmbillede, hvad du har brug for er nu at fjerne cellerne eller rækkerne, hvis de ikke er fed. I stedet for at fjerne ikke fedtholdige celler en efter en manuelt introducerer denne vejledning de tricks, du hurtigt kan løse det i Excel.

dok fjern, hvis ikke fed 1

Fjern rækker, hvis de ikke er fed med VBA

Fjern celler, hvis de ikke er fed med Find og erstat, og vælg rækkehjælper

Fjern rækker / celler, hvis de ikke er fede med Kutools til Excel god idé3


v Fjern rækker, hvis de ikke er fed med VBA

For at fjerne rækker, hvis de ikke er med fed skrift, kan du bruge en VBA-kode til at håndtere.

1. Trykke F11 + Alt for at aktivere Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler, derefter indsat under VBA-koden til den nye Moduler vindue.

VBA: Fjern rækker, hvis de ikke er med fed skrift.

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. Trykke F5 nøgle for at køre VBA-koden. I pop op Kutools til Excel i dialogboksen, skal du angive det område, du vil fjerne rækker uden fede celler, og klik på OK .

dok fjern, hvis ikke fed 2

Og så kan du se de rækker, der ikke indeholder fed skrift, er blevet fjernet

dok fjern, hvis ikke fed 1doc pil til højredok fjern, hvis ikke fed 3

Bemærk: Rækkerne kan kun fjernes, når alle celler i samme række ikke er med fed skrift.


Fjern celler, hvis de ikke er fed med Find og erstat, og vælg rækkehjælper

Hvis du bare vil fjerne celleindholdet fra ikke fed skrift, kan du bruge funktionen Find og erstat til først at markere de fed skrift og derefter bruge Kutools til Excel's Vælg Range Helper for at vende om markeringen af ​​ikke-fed skrift og derefter fjerne indholdet.

1. Vælg det dataområde, hvor du ikke vil have markeret celler med fed skrift, og tryk på Ctrl + F at muliggøre Søg og erstat dialog, og klik på Indstillinger knap. Se skærmbillede:

dok fjern, hvis ikke fed 4

2. klik dannet at gå til Find format dialog og under font fanebladet, vælg pin fra Skrifttype liste. Se skærmbillede:

dok fjern, hvis ikke fed 5

3. klik OK > Find alle, og alle de fedte celler er anført i Søg og erstat dialog, og tryk på Ctrl + A. for at vælge dem alle, og luk derefter Søg og erstat dialog. Se skærmbillede:

dok fjern, hvis ikke fed 6

4. Hold derefter disse celler markerede, og klik Kutools > Type > Vælg Range Helper. Se skærmbillede:

dok fjern, hvis ikke fed 7

5. Kontroller i poppedialogen Omvendt valg indstilling først, og vælg derefter det originale dataområde. Nu kan du se, at udvalget er omvendt. Se skærmbillede:

dok fjern, hvis ikke fed 8

6. klik Luk. Tryk nu på Slette nøgle for at fjerne celleindholdet fra ikke-fed skrift.

dok fjern, hvis ikke fed 9


Fjern rækker / celler, hvis de ikke er fede med Kutools til Excel

Ovenstående metoder er ikke lette nok, i dette tilfælde kan du bruge Kutools til Excel's Vælg celler med format værktøj til hurtigt at identificere ikke fed skrift og derefter fjerne dem.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

1. Vælg det ønskede dataområde, og klik på Kutools > Type > Vælg celler med format. Se skærmbillede:

dok fjern, hvis ikke fed 15

2. Klik på i poppedialogen Vælg Format fra celle for at vælge en ikke-fed skrift celle fra dataområdet, og tjek derefter pin kun fra nedenstående liste i skrifttypeafsnittet. Se skærmbillede:

dok fjern, hvis ikke fed 11

3. klik Ok, og der vises en dialogboks, der minder dig om antallet af valgte celler, skal du blot klikke Ja at lukke det.

dok fjern, hvis ikke fed 12

Nu er alle ikke-fed skrift markeret, og tryk på Slette nøgle for at fjerne celleindholdet. Eller hvis du vil fjerne de ikke-fedte rækker, skal du højreklikke på en af ​​de valgte celler og vælge Slette > Hele rækken. Se skærmbilleder:

dok fjern, hvis ikke fed 13doc pil til højredok fjern, hvis ikke fed 14

Relative artikler:


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super Formula Bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2019 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60-dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50% og reducerer hundredvis af museklik for dig hver dag!
officetab bund
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.