SidstUdfyldt = Worksheets("Ark1").Range("B2").Value For Each c In Worksheets("Ark1").Range("B3:B100") If Not c.Value <> "" Then c.Value = SidstUdfyldt Else SidstUdfyldt = c.Value End If Next c End Sub
Er det muligt at angive et dynamisk antal celler, som skal udfyldes i stedet for de 100. Det skulle gerne være til og med den nederste række, som er udfyldt. Ex. er der udfyldt noget i celle A130, hvorfor der skal udfyldes til og med række 130.
SidstUdfyldt = Worksheets("Ark1").Range("B2").Value For Each c In Worksheets("Ark1").Range("B3", Range("B65536").End(xlUp)) If Not c.Value <> "" Then c.Value = SidstUdfyldt Else SidstUdfyldt = c.Value End If Next c
Et lille trick kan fikse det uden vba marker alle celler fra B2 til fx B200 tryk F5 og vælg Specielle vælg så "Tomme" Alle tomme celle vil så være markerede tryk F2 og skriv =B2 og afslut indtastning med ctrl-enter
Sjap, jeg har bare set den et tilfældig sted engang og syntes at den var smart :-) desværre har jeg ikke selv opfundet den .....
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
