Wpis z mikrobloga

@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