Note to self: Hvordan fylle tomme celler i Excel ved hjelp av VBA

Det endelige målet her er at hver tomme celle i det merkede området får samme verdi som cellen over. Informasjonen er basert på denne og denne artikkelen.

1. Merk cellene som skal endres i Excel-arket

(Det gjør ingenting om det allerede er innhold i noen av cellene du merker.)

2. Sørg for at fanen med kategorien Utvikler vises på båndet i Excel

Klikk her for å se Microsoft sin veiledning.

3. På utvikler-fanen; klikk på "Visual Basic", og VBA-vinduet åpnes:

4. Markér ThisWorkbook

Markér ThisWorkbook under VBA-prosjektet med samme navn som regnearket ditt,

5. Insert Module

Klikk Insert->Module, og et nytt modulvindu åpnes.

6. Legg inn koden

Sub FillCellFromAbove()
For Each cell In Selection
If cell.Value = "" Then
cell.Value = cell.Offset(-1, 0).Value
End If
Next cell
End Sub

7. Kjør koden

Tilbake i Excel-arket igjen: Klikk på Utvikler → Makroer.

Sørg for at ThisWorkbook.FillCellFromAbove er markert, og klikk Kjør.

 

Legg igjen en kommentar