Gentagelse af værdi, indtil ny værdi mødes

<blank>          <- skal udfyldes med 600
<blank>          <- skal udfyldes med 600
<blank>          <- skal udfyldes med 600
600
<blank>          <- skal udfyldes med 750
<blank>          <- skal udfyldes med 750
<blank>          <- skal udfyldes med 750
<blank>          <- skal udfyldes med 750
750
Osv. Det skal bemærkes, at værdiernes placering kan skifte, da det er en rapport jeg indlæser fra et andet system.

/hpo

Tilret selv området i Range

Sub indsæt()
For Each b In Range("a1:a20")
    For Each a In Range("a" & b.Row, Range("a20"))
        If a <> "" Then
        b.Value = a.Value
        Exit For
        End If
        Next a
    Next b
End Sub

Jeg ved ikke hvordan den skal grejes i samme kollonne, men hvis du kan bruge kollonnen ved siden af kan du prøve med (Forudsat at din første observation står i A2):
=hvis(A2="";B1;A2)
og så ellers bare trække den nedad

Du kunne også prøve denneher :

Marker Alle celler i kolonnen der skal udfyldes.
Tryk F5, og vælg "Special"
Vælg "Tomme celler"
Vælg "OK"
Hold Ctrl nede og marker den nederste tomme celle
Skriv = og peg på den sidst nederste celle der allerede er udfyldt
tryk CTRL og ENTER

nu skulle alle de tomme celler blive udfyldt med den værdi der står nedenunder.

Lidt bøvlet skrevet, men jeg håber det går.

jeg kigger lige på det ogs vender tilbage. Tak for hurtig erspons :)

/hpo

Umiddelbart kunne jeg ikke få Mrjh løsningen til at virke - den skrev "1" taller i hele kolonnen :( anedj-løsningen virker og får derfor point. Takker for deltagelsen til alle.

/hpo

dvs. anedj - lægger du ikke et svar?

Hermed gjort

Sub fyld()

Dim last, x, r
last = Range("a65535").End(xlUp).Row
For r = last To 2 Step -1
If Cells(r, 1) <> "" And Cells(r - 1, 1) = "" Then Cells(r - 1, 1) = Cells(r, 1)
Next

End Sub