Excel'de birden çok boş satırı veya sütunu Excel'de aynı anda nasıl gizleyebilirim?
Boş satırları veya sütunları gizlemek veya kaldırmak, çalışma sayfasını yoğunlaştırmanıza yardımcı olabilir, bu makalede size Excel çalışma sayfasındaki boş satırları veya sütunları gizlemenin veya kaldırmanın bazı hızlı yollarını tanıtacağım.
VBA kodu ile birden çok boş satırı veya sütunu hızla gizleyin
Kutools for Excel ile birden çok boş satırı veya sütunu hızla silin
VBA kodu ile birden çok boş satırı veya sütunu hızla gizleyin
Aşağıdaki VBA kodu, bir çalışma sayfasındaki birden çok boş satırı veya sütunu hızlı ve kolay bir şekilde gizlemenize yardımcı olabilir.
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. Tıkla Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Bir çalışma sayfasındaki birden çok boş satırı gizleyin
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Row + xRg.Rows.Count
If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
xRg.Rows(I).EntireRow.Hidden = True
End If
Next
End Sub
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve boş satırları gizlemek istediğiniz veri aralığını seçmenizi hatırlatmak için bir istem kutusu görüntülenir, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK düğmesi, boş satırlar aynı anda gizlenir, ekran görüntüsüne bakın:
not: Birden fazla boş sütunu gizlemek için lütfen aşağıdaki VBA kodunu uygulayın:
VBA kodu: Bir çalışma sayfasındaki birden çok boş sütunu gizleyin
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Column + xRg.Columns.Count
If Application.WorksheetFunction.CountA(xRg.Columns(I)) = 0 Then
xRg.Columns(I).EntireColumn.Hidden = True
End If
Next
End Sub
Kutools for Excel ile birden çok boş satırı veya sütunu hızla silin
Bu bölümde, bir aralıkta, çalışma sayfasında veya çalışma kitabında istemediğiniz birden çok boş satır veya sütunun nasıl silineceğinden bahsedeceğim. Kutools for Excel'S Gizli (Görünür) Satırları ve Sütunları Sil yardımcı program bu görevi olabildiğince çabuk çözmenize yardımcı olabilir.
Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. |
Kurduktan sonra Kutools for Excellütfen aşağıdaki işlemleri yapın:
1. Boş satırları veya sütunları silmek istediğiniz veri aralığını seçin ve ardından Kutools > Sil > Gizli (Görünür) Satırları ve Sütunları Sil, ekran görüntüsüne bakın:
2. In Gizli (Görünür) Satırları ve Sütunları Sil iletişim kutusunu seçin Seçilen Aralıkta in Arama konumu açılır liste (ayrıca bu açılır listede ihtiyaç duyduğunuz diğer seçeneği de seçebilirsiniz) satırlar or Sütunlar itibaren Türü sil bölüm ve seçin Boş satırlar or Boş sütunlar altında Ayrıntılı tip bölümü, ekran görüntüsüne bakın:
3. Ve sonra tıklayın Ok düğmesi, seçimdeki boş satırlar veya sütunlar bir defada kaldırıldı. Ekran görüntüsüne bakın:
not: Bu özellikle, ihtiyaç duyduğunuzda gizli satırları veya sütunları, seçimdeki görünür satırları veya sütunları, çalışma sayfasını veya çalışma kitabını da silebilirsiniz.
Şimdi Excel için Kutools'u Ücretsiz İndir'i tıklayın!
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!