Note: The other languages of the website are Google-translated. Back to English
Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

Kako odstraniti celice ali vrstice, če v Excelu ni krepko?

Recimo, da imate vrsto podatkov s krepkimi celicami in ne krepkih celic, kot je prikazano na spodnjem posnetku zaslona, ​​zdaj morate odstraniti celice ali vrstice, če niso krepko. Namesto da bi ročno odstranjevali krepke celice eno za drugo, ta vadnica predstavlja trike za hitro reševanje v Excelu.

doc odstrani, če ni krepko 1

Odstranite vrstice, če niso krepko označene z VBA

Odstranite celice, če niso krepko označene z Find and Replace in Select Range Helper

Z Kutools za Excel odstranite vrstice / celice, če niso krepko dobra ideja3


v Odstranite vrstice, če niso krepko označene z VBA

Če želite vrstice odstraniti, če niso krepke, lahko za obdelavo uporabite kodo VBA.

1. Pritisnite F11 + Alt tipke, da omogočite Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli, nato prilepite pod kodo VBA na novo Moduli okno.

VBA: Odstranite vrstice, če niso krepke.

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. Pritisnite F5 tipko za zagon kode VBA. V pojavnem oknu Kutools za Excel v pogovornem oknu določite obseg, v katerem boste odstranili vrstice brez krepkih celic, in kliknite OK gumb.

doc odstrani, če ni krepko 2

Nato lahko vidite, da so bile vrstice, ki ne vsebujejo krepkih celic, odstranjene

doc odstrani, če ni krepko 1doc puščica desnodoc odstrani, če ni krepko 3

Opomba: vrstice je mogoče odstraniti le, če vse celice v isti vrstici niso krepke.


Odstranite celice, če niso krepko označene z Find and Replace in Select Range Helper

Če želite samo odstraniti vsebino celic iz ne krepkih celic, lahko s funkcijo Najdi in zamenjaj najprej izberete krepke celice, nato pa uporabite Kutools za ExcelJe Izberite Range Helper če želite obratno izbrati neokrepljene celice, nato odstranite vsebino.

1. Izberite obseg podatkov, iz katerega želite odstraniti neokrepljene celice, in pritisnite Ctrl + F omogočiti Poišči in zamenjaj in kliknite na možnosti . Oglejte si posnetek zaslona:

doc odstrani, če ni krepko 4

2. klik oblikovana Pojdite na Poišči obliko pogovorno okno in pod Pisava jeziček, izberite pin Iz Slog pisave seznam. Oglejte si posnetek zaslona:

doc odstrani, če ni krepko 5

3. klik OK > Poišči vse, in vse krepke celice so navedene v Poišči in zamenjaj in pritisnite Ctrl + A da jih izberete, nato zaprite Poišči in zamenjaj pogovornem oknu. Oglejte si posnetek zaslona:

doc odstrani, če ni krepko 6

4. Nato pustite te celice izbrane in kliknite Kutools > Izberite > Izberite Range Helper. Oglejte si posnetek zaslona:

doc odstrani, če ni krepko 7

5. V pojavnem pogovornem oknu potrdite Inverzna izbira najprej in nato izberite izvirno obseg podatkov. Zdaj lahko vidite, da je izbor obrnjen. Oglejte si posnetek zaslona:

doc odstrani, če ni krepko 8

6. klik Zapri. Zdaj pritisnite Brisanje tipko, da odstranite vsebino celice iz ne krepkih celic.

doc odstrani, če ni krepko 9


Z Kutools za Excel odstranite vrstice / celice, če niso krepko

Zgornje metode niso dovolj enostavne, v tem primeru jih lahko uporabite Kutools za ExcelJe Izberite Celice z obliko pripomoček za hitro prepoznavanje neobrisanih celic in njihovo odstranitev.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. Izberite obseg podatkov, ki ga potrebujete, in kliknite Kutools > Izberite > Izberite Celice z obliko. Oglejte si posnetek zaslona:

doc odstrani, če ni krepko 15

2. V pogovornem oknu kliknite Izberite Oblika iz celice gumb, da izberete eno krepko celico iz obsega podatkov, nato preverite pin samo s spodnjega seznama v razdelku Pisava. Oglejte si posnetek zaslona:

doc odstrani, če ni krepko 11

3. klik Okin odpre se pogovorno okno, ki vas opomni na število izbranih celic, samo kliknite Da da ga zaprete.

doc odstrani, če ni krepko 12

Zdaj so izbrane vse krepke celice in pritisnite Brisanje za odstranitev vsebine celice. Če pa želite odstraniti ne krepke vrstice, z desno miškino tipko kliknite katero koli izbrano celico in izberite Brisanje > Cela vrstica. Oglejte si posnetke zaslona:

doc odstrani, če ni krepko 13doc puščica desnodoc odstrani, če ni krepko 14

Relativni članki:


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50% in vsak dan zmanjša na stotine klikov z miško!
dno pisarniške mize
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.