For Each Döngüsü (Akıllı Tarama)

Koleksiyonlarda Gezinmek

Bir klasördeki tüm dosyalar, bir kitaptaki tüm sayfalar veya bir Range içindeki tüm hücreler "Koleksiyon"dur. For Each bunları kendi sayar.

VBA Kodu:

Sub BoslukKapat()
    Dim h As Range
    For Each h In Range("A1:A10")
        If h.Value = "" Then h.Value = "Yok"
    Next h
End Sub

Ne Göreceksiniz? A1 ile A10 aralığını tek tek tarayacak, boş bulduğu hücrelerin içine anında "Yok" yazacaktır.