Pek çok Excel kullanıcısı, ihtiyaç duymadıkları bazı verilere sahip olduklarında satırları ve sütunları gizler.
Bu, yalnızca yararlı verileri görünür tutmanın ve aynı zamanda görünür olmanız gerekmeyen verileri silmek zorunda kalmamanın bir yoludur.
Ve bu tür çok sayıda gizli satır/sütun varsa, bu gizli satırları ve sütunları bulup silmek zahmetli olabilir (ihtiyacınız olmadığında).
Bu derste, size kolayca yapmanın birkaç yolunu göstereceğim. Excel'de gizli satırları ve sütunları silme.
Tüm gizli satırları ve sütunları tek seferde silmenizi sağlayan yerleşik bir yöntem vardır ve bunu seçili hücre aralığımıza uygulamak istemeniz durumunda VBA makro kodlarını da kullanabilirsiniz.
O halde başlayalım!
Excel'deki Tüm Gizli Satırları ve Sütunları Sil
Excel'de bir çalışma kitabının tamamındaki tüm gizli satırları ve sütunları silmek istiyorsanız, burada gösterilen yöntemi kullanabilirsiniz.
Bu gizli satırları ve sütunları yalnızca etkin sayfadan değil, tüm çalışma kitabından kaldıracağını unutmayın.
Excel'deki çalışma kitabından tüm gizli satırları ve sütunları silme adımları aşağıdadır:
- Dosya seçeneğini tıklayın
- Soldaki seçeneklerde 'Bilgi'yi tıklayın
- 'Sorunları Kontrol Et' seçeneğine tıklayın
- 'Belgeyi İncele' seçeneğine tıklayın. Bu, Belge Denetçisi iletişim kutusunu açacaktır.
- 'Belge Denetçisi' iletişim kutusunda, 'İncele' düğmesini tıklayın. Bu, tüm çalışma kitabını inceleyecek ve size çalışma kitabı hakkında bilgi verecektir.
- 'Gizli Satırlar ve Sütunlar' seçeneğine ilerleyin. Çalışma kitabında bulduğu toplam gizli satır ve sütun sayısını gösterdiğini göreceksiniz.
- 'Tümünü Kaldır' düğmesine tıklayın
Yukarıdaki adımlar, çalışma kitabındaki tüm gizli satırları ve sütunları siler.
Belge Denetçisi seçeneğini çalıştırmadan önce bu çalışma kitabını kaydetmeniz gerektiğini unutmayın. Çalışma kitabı henüz kaydedilmemişse, Excel önce sizi onu kaydetmeye zorlar. Ayrıca, bu adımlarla değiştirilen veriler kurtarılamadığından, dosyayı bir kez kaydetmenizi isteyen bir uyarı istemi gösterecektir.
Gizli satır ve sütun olmaması durumunda, Gizli ve Satırlar ve Sütunlar seçeneğinden önce yeşil bir onay işareti görürsünüz (Belge Denetçisi iletişim kutusunda).
Gizli satırlar ve sütunların yanı sıra, Belge Denetçisi iletişim kutusu size yorum sayısı, gizli çalışma sayfaları veya gömülü belgeler vb. gibi birçok başka yararlı bilgi de verir.
Not: Belge Denetçisi tarafından yapılan değişiklikleri geri alamazsınız. Bu nedenle, orijinal verilerin yedek bir kopyasına sahip olduğunuzdan emin olun (ileride ihtiyaç duymanız durumunda)Tüm çalışma kitabı için tüm gizli sütunları ve satırları silmek istiyorsanız bu harika bir yöntemdir.
Ancak, yalnızca belirli bir sayfada veya belirli bir aralıkta silmek istiyorsanız, bu seçeneği kullanamazsınız.
Bu durumda, aşağıda ele alınan VBA yöntemini kullanabilirsiniz.
VBA kullanarak Gizli Satırları ve Sütunları Sil
Yalnızca birkaç gizli satır ve sütununuz varsa, bunları manuel olarak açıp ardından silmek mümkündür.
Ancak, bu oldukça sık yapmanız gereken bir şeyse veya çok sayıda satır/sütun içeren büyük bir veri kümeniz varsa, bu işlemi otomatikleştirmek için VBA makro kodlarını kullanmak en iyisidir.
Bu gizli satırları ve sütunları silmek için VBA'yı kullanabileceğiniz farklı senaryolara bakalım.
Tüm Çalışma Sayfasından (Kullanılan Aralık)
VBA kodunu, çalışma sayfasındaki son satır numarasından ve son sütun numarasından başlayarak tüm çalışma sayfasını kontrol ettirebilsem de, bu kaynak israfı olur.
Daha iyi bir yöntem, kullanılan aralığın ne olduğunu görmek ve ardından yalnızca herhangi bir gizli satır ve sütun için kullanılan aralığı kontrol etmek olacaktır.
Kullanılan aralıktaki tüm gizli satırları silecek olan VBA kodu aşağıdadır:
Sub DeleteHiddenRows() Dim sht Çalışma Sayfası Olarak Dim LastRow Set sht = ActiveSheet LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row For i = LastRow To 1 Adım -1 If Rows(i).Hidden = True Sonra Rows(i).EntireRow.Delete Next End Sub
Yukarıdaki VBA kodu önce kullanılan aralıktaki son satır numarasını bulur ve bu satır numarasını 'LastRow' değişkenine atar.
Bu son satır numarası daha sonra, son satırdan başlayıp gizli olup olmadığını kontrol ettiği For Next döngüsünde kullanılır.
Gizli olması durumunda, o satırın tamamı silinir. Ve eğer gizli değilse, kod o satırı olduğu gibi bırakır ve üstündeki satıra geçer. Bu döngü tüm satırları kontrol eder ve işlem sırasında karşılaştığı tüm gizli satırları siler.
Kullanılan aralıktaki tüm gizli sütunları silmek isterseniz aşağıdaki VBA kodunu kullanın:
Alt DeleteHiddenColumns() Dim sht Çalışma Sayfası Olarak Dim LastCol Tamsayı Kümesi olarak Dim LastCol sht = ActiveSheet LastCol = sht.UsedRange.Columns(sht.UsedRange.Columns.Count).Column For i = LastCol To 1 Adım -1 If Columns(i). = True Then Columns(i).EntireColumn.Delete Next End Sub
Bu yine aynı şekilde çalışır, burada satırlar yerine sütunları kontrol ediyoruz.
Böylece kullanılan aralıktaki son sütun numarasını bulur, onu bir değişkene atar ve ardından son sütundan ilk sütuna gitmek için döngüyü kullanır ve işlemdeki tüm gizli sütunları siler.
Ve tüm gizli satırları ve ayrıca gizli sütunları silecek bir koda sahip olmak istiyorsanız, aşağıdaki VBA kodunu kullanın:
Sub DeleteHiddenRowsColumns() Dim sht Çalışma Sayfası Olarak Dim LastRow Tamsayı olarak Dim LastCol Tamsayı Kümesi olarak Dim sht = ActiveSheet LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row LastCol = sh.Used.Used Columns.Count).Column For i = LastRow To 1 Adım -1 If Rows(i).Gidden = True Then Rows(i).EntireRow.Delete Sonraki For i = LastCol To 1 Adım -1 If Columns(i).Gizli = True Then Columns(i).EntireColumn.Delete Next End Sub
Bu yalnızca hem satırlar hem de sütunlar için birleştirilmiş koddur ve aynı şekilde çalışır.
Bu, bir döngü yerine, önce tüm satırlardan geçtiği ve ardından tüm sütunlardan geçtiği iki ayrı döngü kullanır. Ve bu süreçte karşılaştığı tüm gizli satırları ve sütunları siler.
Bu VBA kodunu Visual Basic Düzenleyicisi'ndeki normal bir modüle yerleştirmeniz gerektiğini unutmayın. Ardından, makro iletişim kutusunu kullanarak veya bu makroyu hızlı erişim araç çubuğuna ekleyerek kodu doğrudan VB Editöründen çalıştırabilirsiniz.
Bu oldukça sık yapmanız gereken bir şeyse, bu kodu kişisel makro çalışma kitabına da ekleyebilirsiniz, böylece sisteminizdeki tüm çalışma kitaplarından ona erişebilirsiniz.
Belirli Bir Hücre Aralığından
Gizli satırları ve sütunları kaldırmak istediğiniz belirli bir aralığınız varsa, bunu kod içinde belirtmeniz gerekir.
Bu, kodun yalnızca belirtilen aralıktaki satırlar ve sütunlar arasında dolaşmasını ve çalışma sayfasındaki diğer alanlara dokunulmadan kalmasını sağlar.
Bunu yapacak VBA kodunun altında:
Sub DeleteHiddenRowsColumns() Dim sht Çalışma Sayfası Olarak Dim sht Dim Rng As Range Dim LastRow Tamsayı olarak Dim RowCount sht = ActiveSheet Set Rng = Range("A1:K200") RowCount = Rng.Rows.Count LastRow = Rng.Rows(Rng. Rows.Count).Row ColCount = Rng.Columns.Count LastCol = Rng.Columns(Rng.Columns.Count).Column For i = LastRow'dan LastRow'a - RowCount Adım -1 If Rows(i).Gidden = True Then Rows( i).EntireRow.Delete Next For j = LastCol To LastCol - ColCount Adım -1 If Columns(j).Hidden = True Then Columns(j).EntireColumn.Delete Next End Sub
Yukarıdaki kodda aralığı A1:K200 olarak belirledim.
Bu, kodun belirtilen aralıktaki tüm satır ve sütunlardan geçmesini ve karşılaştığı tüm gizli satırları ve sütunları kaldırmasını sağlar.
Bu aralığın dışında gizli satır veya sütunlarınız varsa, bunlar etkilenmeyecektir.
Yani bu şekilde silebilirsin Excel'de gizli satırlar ve sütunlar.
Bunu çalışma kitabının tamamında yapmak istiyorsanız, Belge Denetçisi seçeneğini kullanabilirsiniz. Ve daha fazla kontrole ihtiyaç duymanız durumunda, yukarıda gösterildiği gibi VBA kodlarını kullanabilirsiniz.
Umarım bu öğreticiyi faydalı bulmuşsunuzdur!
