Sziasztok!
Van egy kimutatásból származó Excel táblám, összesített sorokkal teleszórva.
Nekem ebből kell listát csinálni. Nem is olyan bonyolult, sorbarendezem egyik oszlop szerint, és a maradék sorokat (összesítőket) kitörlöm. Mivel az A oszlopban vannak az összesítők, a B és C oszlopban már csak egyedi adat, így a kettő különbségét kell kitörölni,
Viszont ha ezzel szedem ki az utolsó adat sorszámát, akkor az A oszlopbeli étéket adja vissza.
utolso = Cells(Rows.Count, „C”).End(xlUp).Row
tart = „C2:C” & utolso
Megoldottam így:
i = 2
Do
el = „C” & i
elso = Range(el).Value
i = i + 1
Loop Until elso = „”
utolso2 = i – 1
tart2 = utolso2 & „:” & utolso
Rows(tart2).Select
Selection.Delete Shift:=xlUp
Működik is, de nincs ennél profibb megoldás?
Köszi!
.
