Sletning af tomme rækker med VBA
Jeg har et ark på ca. 160.000 rækker hvor jeg skal udsøge de tomme celler i kolonne B fra B2 til sidste post.Jeg har læst nogle af de forskellige løsnings muligheder her på sitet og andre steder og har fundet mange bud, men ikke noget der virker optimalt. Jeg kan løse problemet med en if - next løkke, men det tager over 20 minutter at gennemføre denne operation. Jeg arbejder pt. med denne her VBA kode:
Set rTable = Range(Selection, ActiveCell.SpecialCells(xlLastCell))
rTable.Select
With rTable
lRow = .Rows.Count
End With
A = "B" & lRow
Range("B2", A).Select
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Den virker fint hvis jeg f.eks vælger 200 rækker, men hvis jeg kører alle rækkerne på engang sletter den alle data i arker på nær overskriften.
Da række 2 er tom og skal slettes kan jeg ikke umiddelbart brug sorteringfunktionen. Den indbyggede excelfunktion med markering af blanke rækker virker ikke da der er for mange linjer.
Udsøgningen skal være i kolonne B da der kan forekomme data i kolonne A i de rækker der skal slettes. Disse data skal også slettes.
Hvad mangler jeg i kodningen?