Selecione cada enésima linha no Excel

Sub SelectEveryNthRow()ColsSelection = Selection.Columns.CountRowsSelection = Selection.Rows.CountRowsBetween = 3Diff = Selection.Row – 1Selection.Resize(RowsSelection, 1).SelectSet FinalRange = Selection. _Offset(RowsBetween – 1, 0).Resize(1, ColsSelection)For Each xCell In SelectionIf xCell.Row Mod RowsBetween = Diff …

Continuar lendo