Note: The other languages of the website are Google-translated. Back to English
Autentificare  \/ 
x
or
x
Înregistrare  \/ 
x

or

Cum să eliminați celulele sau rândurile dacă nu sunt aldine în Excel?

Presupunând că aveți o gamă de date cu celule cu caractere aldine și nu celule cu caractere aldine, așa cum se arată în imaginea de mai jos, acum ceea ce aveți nevoie este să eliminați celulele sau rândurile, dacă nu sunt aldinate. În loc să eliminați manual celulele fără caractere aldine, acest tutorial introduce trucurile pentru a le rezolva rapid în Excel.

doc eliminați dacă nu este aldin 1

Eliminați rândurile dacă nu sunt îngroșate cu VBA

Eliminați celulele dacă nu sunt îngroșate cu Găsire și înlocuire și selectați Range Helper

Eliminați rândurile / celulele dacă nu sunt aldine cu Kutools pentru Excel idee bună3


v Eliminați rândurile dacă nu sunt îngroșate cu VBA

Pentru a elimina rândurile dacă nu sunt îngroșate, puteți utiliza un cod VBA pentru a gestiona.

1. presa F11 + Alt tastele pentru a activa Microsoft Visual Basic pentru aplicații fereastră.

2. clic Insera > Module, apoi lipit sub noul cod VBA Module fereastră.

VBA: eliminați rândurile dacă nu sunt îngroșate.

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. presa F5 tasta pentru a rula codul VBA. În pop-up Kutools pentru Excel casetă de dialog, vă rugăm să specificați intervalul pe care îl veți elimina rândurile fără celule îngroșate și faceți clic pe OK butonul.

doc eliminați dacă nu este aldin 2

Și apoi puteți vedea rândurile care nu conțin celule cu caractere aldine au fost eliminate

doc eliminați dacă nu este aldin 1doc săgeată dreaptadoc eliminați dacă nu este aldin 3

Notă: rândurile pot fi eliminate numai atunci când toate celulele din același rând nu sunt îngroșate.


Eliminați celulele dacă nu sunt îngroșate cu Găsire și înlocuire și selectați Range Helper

Dacă doriți doar să eliminați conținutul celulei din celulele care nu sunt îngroșate, puteți utiliza funcția Găsiți și înlocuiți pentru a selecta mai întâi celulele cu caractere aldine, apoi utilizați Kutools pentru Excel'S Selectați Range Helper pentru a inversa selectarea celulelor fără caractere aldine, apoi eliminați conținutul.

1. Selectați intervalul de date în care doriți să eliminați celulele fără caractere aldine și apăsați Ctrl + F pentru a permite Găsiți și înlocuiți și faceți clic pe Opţiuni buton. Vedeți captura de ecran:

doc eliminați dacă nu este aldin 4

2. clic Format a merge la Găsiți format dialog și sub Font , selectați Îndrăzneţ de la Stilul fontului listă. Vedeți captura de ecran:

doc eliminați dacă nu este aldin 5

3. clic OK > Găsiți toateși toate celulele cu caractere aldine sunt afișate în Găsiți și înlocuiți dialog și apăsați Ctrl + A pentru a le selecta pe toate, apoi închideți fișierul Găsiți și înlocuiți dialog. Vedeți captura de ecran:

doc eliminați dacă nu este aldin 6

4. Apoi păstrați aceste celule selectate și faceți clic Kutools > Selectați > Selectați Range Helper. Vedeți captura de ecran:

doc eliminați dacă nu este aldin 7

5. În dialogul popping, bifați Selecție inversă în primul rând, apoi selectați intervalul de date original. Acum puteți vedea că selecția este inversată. Vedeți captura de ecran:

doc eliminați dacă nu este aldin 8

6. clic Închide. Acum apăsați Șterge tasta pentru a elimina conținutul celulei din celulele fără caractere aldine.

doc eliminați dacă nu este aldin 9


Eliminați rândurile / celulele dacă nu sunt aldine cu Kutools pentru Excel

Metodele de mai sus nu sunt suficient de ușoare, în acest caz, puteți utiliza Kutools pentru Excel'S Selectați celule cu format utilitar pentru a identifica rapid celulele fără caractere aldine și apoi pentru a le elimina.

Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. 

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. Selectați intervalul de date de care aveți nevoie și faceți clic Kutools > Selectați > Selectați celule cu format. Vedeți captura de ecran:

doc eliminați dacă nu este aldin 15

2. În dialogul popping, faceți clic pe Alegeți Format din celulă butonul pentru a selecta o celulă fără caractere aldine din intervalul de date, apoi bifați Îndrăzneţ numai din lista de mai jos din secțiunea Font. Vedeți captura de ecran:

doc eliminați dacă nu este aldin 11

3. clic Okși apare un dialog pentru a vă reaminti numărul de celule selectate, faceți clic pe Da să o închidă.

doc eliminați dacă nu este aldin 12

Acum sunt selectate toate celulele fără caractere aldine și apăsați Șterge tasta pentru a elimina conținutul celulei. Sau dacă doriți să eliminați rândurile care nu sunt îngroșate, faceți clic dreapta pe oricare dintre celulele selectate și selectați Șterge > Întregul rând. Vedeți capturi de ecran:

doc eliminați dacă nu este aldin 13doc săgeată dreaptadoc eliminați dacă nu este aldin 14

Articole relative:


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2019 și 365. Suportă toate limbile. Implementare ușoară în întreprindere sau organizație. Funcții complete de încercare gratuită de 30 de zile. Garanție de restituire a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse în fiecare zi!
fundul officetab
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.