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
Bonus: Bruk følgende kode hvis du vil markere tomme celler også.
Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") For Every myCell In myRange ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Det er totalt " & jeg & " tomme celle(r) ut av " & c & "."