VBA Excel

[CtrlAlt]

Probleemstelling: Namen moeten gekopieerd worden uit een kolom maar de kolom kan verschillen in lengte, er kunnen bijvoorbeeld namen bijkomen en dezelfde code moet nog altijd gaan, dus klakkeloze kopieer plak zal niet efficiënt zijn.

Antwoord:

 Dim x as integer
Do
    x =+ 1
    ActiveCell.Resize(x, 1).Select
Loop Until IsEmpty(ActiveCell.Offset(x, 0))
/Copypasta met die selectie

Vraag: Kan deze code sneller, minder lang of efficiënter? Ik dacht van wel, maar ik raak er niet meteen uit hoe?

 

[Wigi]

Bvb.

Range("B1", Range("B" & Rows.Count).End(xlUp)).Copy Range("A1")

Dit kopieert het bereik van B1 tot en met de laatste niet-lege cel in kolom B naar cel A1.