Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

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

Če menite, da imate na voljo niz podatkov s krepko celico in ne boldiranih celic, kot je prikazano na sliki spodaj, zdaj, kar potrebujete, je odstraniti celice ali vrstice, če niso krepko. Namesto odstranjevanja ne bolded celic enega po enega ročno, ta vaja uvaja trik za vas, da ga hitro rešite v Excelu.

doc odstrani, če ne krepko 1

Odstranite vrstice, če niso označene z VBA

Odstrani celice, če niso krepko z Find in Replace ter Select Range Helper

Odstrani vrstice / celice, če niso krepki s Kutools za Excel dobra ideja3


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

Če želite odstraniti vrstice, če ni krepko, lahko uporabite kodo VBA za obdelavo.

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

2. klik Vstavi > Moduli, nato pa 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 ključ za zagon VBA kode. Pri pojavu Kutools za Excel pogovorno okno, navedite obseg, v katerem boste odstranili vrstice brez krepkih celic, in kliknite na OK gumb.

doc odstrani, če ne krepko 2

In potem si lahko ogledate vrstice, ki ne vsebujejo odebeljenih celic

doc odstrani, če ne krepko 1doc arrow desnodoc odstrani, če ne krepko 3

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

Formula Nikoli več ni treba skrbeti glede dolgih formul v Excelu! Kutools za Excel's Samodejno besedilo lahko dodaja vse formule v skupino
kot auto besedilo in osvobodite možgane! Kliknite tukaj, če želite izvedeti samodejno besedilo Kliknite tukaj, da dobite brezplačno preskusno različico

Odstrani celice, če niso krepko z Find in Replace ter Select Range Helper

Če želite samo odstraniti celično vsebino iz neelastih celic, lahko s funkcijo »Najdi in zamenja« najprej izberete odebeljene celice, nato uporabite Kutools za ExcelJe Izberite sredino pomoči da izberete ne boldirane celice, nato pa odstranite vsebino.

Kutools za Excel, z več kot 120 priročne funkcije Excel, izboljšajte delovno učinkovitost in prihranite svoj delovni čas.

1. Izberite obseg podatkov, v katerem želite odstraniti ne boldirane celice, in pritisnite Ctrl + F omogočiti Poišči in zamenjaj pogovorno okno in kliknite na možnosti gumb. Prikaz slike:

doc odstrani, če ne krepko 4

2. klik oblikovana Pojdite na Poišči obliko dialog in pod Pisava jeziček, izberite pin Iz Slog pisave seznam. Prikaz slike:

doc odstrani, če ne krepko 5

3. klik OK > Poišči vse, in vse bolded celice so na seznamu v Poišči in zamenjaj pogovorno okno in pritisnite Ctrl + A da jih izberete, nato zaprite Poišči in zamenjaj dialog. Prikaz slike:

doc odstrani, če ne krepko 6

4. Nato izberite te celice in kliknite Kutools > Izberite > Izberite sredino pomoči. Prikaz slike:

doc odstrani, če ne krepko 7

5. V pogovornem oknu popping, preverite Inverse Selection najprej izberite možnost prvotnega podatkovnega območja. Zdaj lahko vidite, da je izbira obrnjena. Prikaz slike:

doc odstrani, če ne krepko 8

6. klik Zapri. Zdaj pritisnite Brisanje ključ, da odstranite celično vsebino iz neželjenih celic.

doc odstrani, če ne krepko 9


Odstrani vrstice / celice, če niso krepki s Kutools za Excel

Zgoraj metode niso dovolj enostavne, v tem primeru lahko uporabite Kutools za ExcelJe Izberite celice z obliko pripomoček za hitro identifikacijo neprekaljenih celic, nato pa jih odstranite.

Kutools za Excel, z več kot 120 priročne funkcije Excel, izboljšajte delovno učinkovitost in prihranite svoj delovni čas.

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

1. Izberite obseg podatkov, ki ga potrebujete, in kliknite Kutools > Izberite > Izberite celice z obliko. Prikaz slike:

doc odstrani, če ne krepko 15

2. V pogovornem oknu popping kliknite Izberite Oblika iz celice gumb, da izberete eno ne krepko celico, oblikujte obseg podatkov, nato preverite pin samo s spodnjega seznama v razdelku Pisave. Prikaz slike:

doc odstrani, če ne krepko 11

3. klik Ok, in pogovorno okno se izpiše, da vas opomni na število izbranih celic, samo kliknite Da da ga zaprete.

doc odstrani, če ne krepko 12

Zdaj so izbrane vse ne-krepke celice in pritisnite Brisanje ključ za odstranitev celične vsebine. Ali pa, če želite odstraniti ne krepke vrstice, desno kliknite katero koli od izbranih celic in izberite Brisanje > Celotna vrstica. Oglejte si posnetke zaslona:

doc odstrani, če ne krepko 13doc arrow desnodoc odstrani, če ne krepko 14

Relativni členi:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
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.