İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Exceldə qalın olmadıqda hüceyrələri və ya satırları necə silmək olar?

Aşağıdakı ekran görüntüsü kimi qalınlaşdırılmış hüceyrələrlə və qalınlaşdırılmış hüceyrələri olmayan bir sıra məlumatınız olduğunu düşünsəniz, indi lazım olanlar hüceyrələri və ya qalınlığı qalmamış halda satırları çıxarmaqdır. Qələmsiz hüceyrələri tək-tək əl ilə əvəz etmək əvəzinə, bu təlimat Excel-də tez həll etmək üçün istifadə olunan fəndləri təqdim edir.

qalın 1 olmadıqda doc silin

VBA ilə qalınlaşmadıqda satırları sil

Tapmaq və dəyişdirmək və Range Helper seçin ilə qalınlaşdırılmadıqda hüceyrələri çıxarın

Excel üçün Kutools ilə qalın olmadıqda satır / hüceyrələri sil yaxşı fikir3


v VBA ilə qalınlaşmadıqda satırları sil

Qutulu deyilsə satırları silmək üçün, idarə etmək üçün VBA kodunu istifadə edə bilərsiniz.

1. Basın F11 + Alt düymələri təmin etmək üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Modulessonra VBA kodunun altına yapışdırıb Modules pəncərə.

VBA: Qalmayan halda satırları sil.

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. Basın F5 VBA kodu çalıştırmak üçün düyməsini basın. Popping up Excel üçün Kutools dialoq qutusuna daxil edin, xahiş edirik qalın hüceyrələri olmayan satırları çıxaracağınız aralığı göstərin və basın OK düyməsini basın.

qalın 2 olmadıqda doc silin

Və sonra qapalı hüceyrələri olmayan satırlar silindiğini görə bilərsiniz

qalın 1 olmadıqda doc silindoc arrow sağqalın 3 olmadıqda doc silin

Qeyd: satırlar yalnız eyni sıradakı bütün hüceyrələr qalınlaşmadıqda silinəcəkdir.

formula Artıq Excel-də uzun müddətli düsturlar barədə narahat olmayın! Excel üçün Kutools's Avtomatik mətn bütün formulları bir qrupa əlavə edə bilərsiniz
avtomatik mətn kimi, və beyninizi azad edin! Avtomatik mətni bilmək üçün buraya vurun Pulsuz sınaq almaq üçün bura vurun

Tapmaq və dəyişdirmək və Range Helper seçin ilə qalınlaşdırılmadıqda hüceyrələri çıxarın

Yalnız hüceyrə məzmununu qalınlaşmamış hüceyrələrdən çıxarmaq istəyirsinizsə, ilk növbədə qalınlaşdırılmış hüceyrələri seçmək üçün tap və dəyişdirmək funksiyasından istifadə edə bilərsiniz, sonra istifadə edin Excel üçün Kutools'S Range Helper seçin Qalmayan hüceyrələri seçməyi tərsinə çevirmək, sonra məzmunu çıxarın.

Excel üçün Kutools, daha çox 120 lazımlı Excel funksiyaları, iş səmərəliliyini artırmaq və iş vaxtınızı xilas etmək.

1. Qalmayan hüceyrələri yox etmək istədiyiniz məlumatların aralığını seçin və basın Ctrl + F imkan verir Tapın və dəyişdirin dialoq və basın Nizamlamalar düyməsini basın. Ekran görüntüsünə baxın:

qalın 4 olmadıqda doc silin

2. klik Format ilə getmək Format tapın dialoq və altında Şrift sekmesini seçin Cəsarətli dən Yazı tipi siyahı. Ekran görüntüsünə baxın:

qalın 5 olmadıqda doc silin

3. klik OK > Hamısını tapınvə bütün qələmli hüceyrələr siyahıda yerləşdirilir Tapın və dəyişdirin dialoq və mətbuat Ctrl + A Hamısını seçmək üçün, sonra da bağlayın Tapın və dəyişdirin dialoq. Ekran görüntüsünə baxın:

qalın 6 olmadıqda doc silin

4. Sonra bu hüceyrələri seçmək və basın Kutools > seçmək > Range Helper seçin. Ekran görüntüsünə baxın:

qalın 7 olmadıqda doc silin

5. Popping dialoqunda yoxlayın Ters Selection əvvəlcə seçim et və sonra orijinal məlumat aralığını seçin. İndi seçimi geri ala bilərsiniz. Ekran görüntüsünə baxın:

qalın 8 olmadıqda doc silin

6. klik yaxın. İndi basın Sil hüceyrə məzmununu qalın olmayan hüceyrələrdən çıxarmaq üçün açar.

qalın 9 olmadıqda doc silin


Excel üçün Kutools ilə qalın olmadıqda satır / hüceyrələri sil

Üstün üsulları kifayət qədər asan deyil, bu halda istifadə edə bilərsiniz Excel üçün Kutools'S Formatlı hüceyrələri seçin Tezliklə qalınlaşmamış hüceyrələri tanımaq və sonra çıxarmaq üçün kommunal.

Excel üçün Kutools, daha çox 120 lazımlı Excel funksiyaları, iş səmərəliliyini artırmaq və iş vaxtınızı xilas etmək.

Sonra pulsuz yükləmə Excel üçün Kutools, aşağıdakıları edin:

1. Lazım olan məlumat aralığını seçin və vurun Kutools > seçmək > Formatlı hüceyrələri seçin. Ekran görüntüsünə baxın:

qalın 15 olmadıqda doc silin

2. Popping dialoqunda, basın Hücredən Format seçin Düyməsini seçməmişəm, bir də qalın olmayan bir hüceyrə məlumat aralığını meydana gətirər, sonra da yoxlayın Cəsarətli Aşağıdakı siyahıdan Font bölməsindən yalnız. Ekran görüntüsünə baxın:

qalın 11 olmadıqda doc silin

3. klik Okvə seçilən hüceyrələrin sayını xatırlatmaq üçün bir dialoq çıxır, yalnız basın bəli onu bağlamaq üçün.

qalın 12 olmadıqda doc silin

İndi bütün qələmi olmayan hüceyrələr seçilir və basın Sil Hüceyrə məzmununu çıxarmaq üçün açar. Və ya qalın olmayan satırları aradan qaldırmaq istəyirsinizsə, seçilmiş hüceyrələrin hər hansı birinə sağ basın və seçin Sil > Bütün satır. Ekranlara baxın:

qalın 13 olmadıqda doc silindoc arrow sağqalın 14 olmadıqda doc silin

Əlaqədar məqalələr:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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.