Manuálne pravdepodobne nie, ale šlo by to makrom, viď prílohu.
V priloženom príklade sa však predpokladá, že filtrováné hodnoty idú od stĺpca A a hodnoty sú od riadku 2:
Sub RowsBelowFiltered()
Dim lastRow As Integer, lFiltered As Range, c As Range
Dim x As String, a, i As Integer
lastRow = ActiveSheet.Range("A65536").End(xlUp).Row
Set lFiltered = ActiveSheet.Range("A2:A" & lastRow).Cells.SpecialCells(xlCellTypeVisible)
For Each c In lFiltered
x = x & IIf(x <> "", ";", "") & c.Row
Next c
a = Split(x, ";")
For i = UBound(a) To LBound(a) Step -1
Range("A" & a(i) + 1).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Next i
End Sub
P.
ad "len nejaku ikonku"
Ukážem na obrázkoch z Xl 2013, ale na 2010 to bude analogické (viď nové prílohy)
Naposledy upravil PaloPa : 13.06.14 at 21:29