İ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

Excel-də başlığı olan boş sütunları necə silmək olar?

Bir neçə sütun olan böyük bir iş varsa, ancaq bəzi sütunlar yalnız bir başlıq içərisindədir və indi, yalnız bir mövzu ilə göstərilən aşağıdakı ekran görüntüsünü almaq üçün boş sütunları silmək istəyirsən. Excel-də tez və asanlıqla həll oluna bilərmi?

doc 1 başlığı olan boş sütunları silin

VBA kodunu istifadə edərək üst sütunları bir mövzu ilə silin

Excel üçün Kutools ilə bir sıra / worksheet / iş kitabında birdən çox boş sütun silin


arrow mavi sağ bubble VBA kodunu istifadə edərək üst sütunları bir mövzu ilə silin


Excel-də bu işlə məşğul olmaq üçün birbaşa üsul yoxdur, istisna olmaqla, bir-birini silmək istisna deyil, amma burada sizin üçün bir kod təqdim edə bilərəm:

1. Basıb saxlayın ALT + F11 düymələri, sonra açar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: Başlıqla boş sütunları silin:

Sub Macro1()
'updateby Extendoffice 20160616
    Dim xEndCol As Long
    Dim I As Long
    Dim xDel As Boolean
    On Error Resume Next
    xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xEndCol = 0 Then
        MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For I = xEndCol To 1 Step -1
        If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
            Columns(I).Delete
            xDel = True
        End If
    Next
    If xDel Then
        MsgBox "All blank and column(s) with only a header row have now been deleted.", vbInformation, "Kutools for Excel"
    Else
        MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

3. Sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və başlıq silinəcək olan boş sütunları xatırlatmaq üçün bir əmr qutusu açılır, ekran görünüşünə baxın:

doc 2 başlığı olan boş sütunları silin

4. Və sonra basın OK düyməsi, mövcud işdə yalnız başlıqlı bütün boş sütunlar bir anda silinir.

QeydBoş sütunlar varsa, onlar da silinəcəkdir.


arrow mavi sağ bubble Excel üçün Kutools ilə bir sıra / worksheet / iş kitabında birdən çox boş sütun silin

Bəzən boş sütunları silmək lazımdır Excel üçün Kutools'S Gizli (Görünür) Satır və Sütunları Sil yardım proqramı bu işi asanlıqla başa vurmağa kömək edə bilər.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Quraşdırıldıqdan sonra Excel üçün Kutoolsxahiş edirəm:

1. Boş sütunların silinməsi lazım olan sütun aralığını seçin.

2. Sonra basın Kutools > Sil > Gizli (Görünür) Satır və Sütunları Sil, bax ekran görüntüsü:

doc 3 başlığı olan boş sütunları silin

3. İçində Gizli (Görünür) Satır və Sütunları Sil dialoq qutusuna ehtiyacınız olduğu halda, görünüşündən açılan menyudan silin Sütunlar dən Türü sil bölümünü seçin və sonra seçin Boş sütunlar dən Ətraflı növü bölmədə bax:

doc 4 başlığı olan boş sütunları silin

4. Sonra basın Ok düyməsini basın və yalnız boş sütunlar bir anda silinir. Ekran görüntüsünə baxın:

doc 5 başlığı olan boş sütunları silin

Haqqında: Bu güclü xüsusiyyəti ilə, siz də lazımsız olaraq boş satırları, görünən sütunları və ya satırı, gizli sütunları və ya satırları silə bilərsiniz.

Excel İndi Free Download Kutools üçün tıklayın!



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.
  • To post as a guest, your comment is unpublished.
    Kim · 11 months ago
    OMG, this is genius!!! thank you
  • To post as a guest, your comment is unpublished.
    Roger · 2 years ago
    Hi,

    Thanks for the nice code above.
    Is it free to use?