Excel - selektovanje

[bear]

Kako automatski selektovati da bude kao na slici (svaki osmi red, npr. i prvih npr. pet kolona)?
Naravno moj dokument ima "beskonacno" redova

 

[Kritika]

Takozvano selotejp rešenje:

Držiš pritisnut taster CTRL i mišem selektuješ svaku osmu vrstu. Teško da ćeš to automatski izvesti

 

[zeleni_zub]

Može da se automatizuje, samo je pitanje zašto bi to radio. Ako već pišeš VBA najverovatnije možeš da uradiš to šta si hteo bez selektovanja....

Evo ga kod koji selektuje svaki treći red od aktivne ćelije sve dok ne naiđe na praznu ćeliju:

Sub SelectRows()

    Dim iRow As Long
      
    iRow = ActiveCell.Row
     
      
    Set resultingSelect = Rows(iRow).EntireRow

    Do
        Set resultingSelect = Application.Union(resultingSelect, Rows(iRow).EntireRow)
        iRow = iRow + 3
    Loop Until IsEmpty(Cells(iRow, 1))
     
    resultingSelect.Select
      
End Sub

Malo sam pospan, ali bi trebalo da je OK.