[trututuyten]

Ogarnia ktoś Excela? Mam kilkaset niepotrzebnych wierszy i chciałbym zostawić tylko co piątego. Robótka ręczna odpada #excel2007

[k.....z]

@trututuyten: musisz wejść w format arkusza, potem ustawienia i

[d.....r]

@klekseusz: ALE TO BYŁO ZABAWNE XD

[cherrycoke2l]

@trututuyten: Makro musiałbyś napisać.

[k.....z]

no popatrz, mam już plusa :)

[cherrycoke2l]

@trututuyten: Takie makro na szybko skrobnąłem. Od razu mówię, że daleko mi do eksperta, więc może da się to bardziej elegancko zrobić (np. wykryć koniec danych i pusty wiersz):

Sub costam()

Dim d As Integer

d = 1

For i = 1 To 20

If (i) Mod 5 = 0 Then

Sheets(1).Rows(i).Copy Sheets(2).Rows(d)

d = d + 1

End If

Next i

End Sub

w czwartej linii (For i = 1

[trututuyten]

Dzięki, pokombinuję ;)