Možeš da u zasebnu kolonu ubaciš formulu '=if(mod(row()-1);8)=0;"*";"")'. Formulu prevuci nadole. Ova formula će u svaki osmi red staviti zvezdicu. Kasnije izfiltriraš svoje podatke koristeći zvezdicu kao argument. Izfiltrirane redove selektuješ i dalje radiš šta ti treba.

Drugi način je da iskoristiš ovaj makro. Prvo uneseš u M1 koji red treba da bude selektovan, a u N1 uneseš koliko kolona. Onda pokreneš makro.

Sub Selekcija()
Dim lngSvakiRed As Long
Dim lngBrojKolona As Long
Dim rngRed As Range
Dim rngSelekcija As Range
Dim i As Long

If Not IsNumeric(Range("m1")) Or Not IsNumeric(Range("n1")) Then
MsgBox "Morate uneti 'svaki red' u m1, a broj kolona u n1."
Exit Sub
End If

lngSvakiRed = Range("m1").Value
lngBrojKolona = Range("n1").Value

Set rngSelekcija = Range(Cells(1, 1), Cells(1, lngBrojKolona))

For i = 2 To 300
If (i - 1) Mod lngSvakiRed = 0 Then
Set rngRed = Range(Cells(i, 1), Cells(i, lngBrojKolona))
Set rngSelekcija = Union(rngSelekcija, rngRed)
End If
Next i

rngSelekcija.Select
End Sub


_{[Ovu poruku je menjao Brodoplovac dana 02.06.2011. u 00:17 GMT+1]}

Hvala puno na odgovoru.
Resio sam problem :)

Ipak, ne znam zasto mi ne uspreva prva metoda.
Kada kopiram formulu i prevucem na dole ne dobijam zvezdice.
U cemu je problem?

Zato što ti je podatak u C koloni (F kolona na mojoj slici) formatiran kao tekst. Podatak mora biti formatiran kao "Number" da bi formula bila prepoznata.

zato što

=IF(MOD(ROW()-1);8)=0;"*";"")

nije isto što i

=IF(MOD(ROW()-1;8)=0;"*";"")

ima jedna zagrada viška

Super :)

Hvala obojici na velikoj pomoci!