Jag har ett excel-ark med ca 100 kolumner. Nu skulle jag vilja ta bort de kolumner som inte innehåller mer än rubrikraden (rad 1), finns det något snabbare (smartare) sätt än att loopa igenom alla celler och kolla dem?

Det enklaste borde vara

for i = 1 to maxcol
if cells(1,i).end(xldown).row = 65535 then
columns(i).delete
i =i-1
end if
next i


Otestat, och funkar inte i kommande versioner av excel. Du skulle också kunna använda worksheetfunction, med "count" och på så sätt räkna antalet ifyllda celler, lite snabbare än manuellt.

Tack, det fungerar (förutom att 65535 skall vara 65536)