Excel'de bir sayfanın boş olup olmadığını hızlıca nasıl kontrol edebilirsiniz?

Eğer büyük bir çalışma kitabında bazı boş sayfalar varsa, bu sayfaların boş olup olmadığını nasıl hızlıca kontrol edebilir ve ardından silebilirsiniz? Excel'de bir sayfanın boş olup olmadığını belirlemek için yerleşik bir fonksiyon bulunmaktadır, ancak burada size bir sayfanın boş olup olmadığını kontrol etmek için bir VBA kodu tanıtacağım.

VBA ile bir sayfanın boş olup olmadığını kontrol etme

VBA ile bir sayfanın boş olup olmadığını kontrol etme

Bir sayfanın boş olup olmadığını kontrol etmek için aşağıdaki makro kodunu kullanarak bir sayfanın boş olup olmadığını hızlıca belirleyebilirsiniz.

1. Kontrol etmek istediğiniz sayfayı etkinleştirin ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın ve Ekle > Modül seçeneğine tıklayarak yeni bir Modül.

oluşturun. 2. Boş betik alanına aşağıdaki makro kodunu yapıştırın. Ekran görüntüsüne bakınız:

VBA: Bir sayfanın boş olup olmadığını kontrol etme

Sub CheckSheetEmpty()
'UpdatebyExtendoffice20170830
    If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
        MsgBox "Sheet is empty", vbInformation, "KuTools For Excel"
    Else
        MsgBox "Sheet is not empty", vbInformation, "KuTools For Excel"
    End If
End Sub

3. Kodu kaydedin ve kodu çalıştırmak için F5 tuşuna basın; sayfanın boş olup olmadığını size bildiren bir iletişim kutusu açılacaktır.

VEYA