Sice pozde, ale neco jsem dohromady dal (jen jsem to neotestoval)
Sub SeskupRadky()
Dim pocet As Long, i As Long
'odgrupování
With ActiveSheet.UsedRange
'.Ungroup
.ClearOutline
End With
'sgrupování
For i = 1 To ActiveSheet.UsedRange.Rows.Count
pocet = Application.WorksheetFunction.CountA(Range("A" & i & ":Z" & i))
If pocet = 0 Then
Rows(i).Group
End If
Next i
End Subcitovat
Sub SeskupRadky()
Dim pocet As Long, i As Long
'odgrupování
With ActiveSheet.UsedRange
'.Ungroup
.ClearOutline
End With
'sgrupování
For i = 1 To ActiveSheet.UsedRange.Rows.Count
pocet = Application.WorksheetFunction.CountA(Range("A" & i & ":Z" & i))
If pocet = 0 Then
Rows(i).Group
End If
Next i
End Subcitovat
\n
RSS nejnovější články