Hvordan sjekke om en celle eller et område med flere celler er tomt med Excel VBA?

I dag skal vi lære om hvordan du enkelt kan sjekke om én eller flere celler er tomme ved å bruke Visual Basic for Applications. Innholdet er relevant for Excel 2019 / 365, 2016 og tidligere versjoner av Microsoft Office.

Forberedende arbeid

Før du starter koding med VBA i Excel, må du sørge for at utviklingsfanen er aktivert. Hvis det ikke er tilfelle, vennligst se på denne korte opplæringen .

Sjekker om Excel-celleområdet er tomt med VBA

• I Excel åpner du Visual Basic-miljøet ved å trykke Alt+F11
• Sett inn følgende kode som en prosedyre i arbeidsarket ditt, eller alternativt i en dedikert VBA-modul.

Sub Check_Cell_is_empty_alt()

Dim rng As Range
Set rng = Selection

For Each Cell In rng

    If IsEmpty(Cell.Value) = True Then
        
    Debug.Print ("Empty")
    Else
        Debug.Print ("Not Empty")
    End If
Next Cell


End Sub

• Gå til regnearket og velg et vilkårlig celleområde.
• Gå tilbake til Visual Basic-editoren og sørg for at Immediate Viewer (CTRL+G) er synlig – ettersom Debug.Print-metoden i koden vil sende resultatet til det vinduet.
• Trykk F5 for å kjøre koden.
• Se på resultatene i det umiddelbare vinduet.

• Alle tomme celler vil bli identifisert.

Mulige utvidelser til koden: Du kan åpenbart utvide denne koden etter behov i tilfelle du er interessert i å hoppe over tomme verdier eller bare gjøre ingenting i tilfelle cellene ikke er fulle. På samme måte kan du sjekke om selve området er tomt, dvs. at det ikke finnes svarte celler.

Kontrollerer ikke tomme felt

På samme måte kan du bruke IsEmpty-egenskapen for å se etter felt som ikke er tomme.

 If Not IsEmpty(Cell.Value) = True Then
        Debug.Print ("Not Empty")
    Else
        Debug.Print ("Empty")
    End If