Из макроса:
1.
2.
3.
4.
5.
ActiveSheet.Range("$A$1:$K$123").AutoFilter Field:= 11 , Criteria1:="0"
Rows("2:123").Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$1:$K$6").AutoFilter Field:= 11
Range("A2").Select
леплю код для vba
1.
2.
3.
4.
5.
6.
ActiveSheet.Range(Cells( 1 , 1 ), Cells(rowEnd, colEnd)).AutoFilter Field:= 11 , Criteria1:="0"
Rows("2:" & rowEnd).Select
Selection.Delete Shift:=xlUp
rowEnd = Row + ActiveWorkbook.Worksheets( 1 ).UsedRange.Rows.Count - 1
ActiveSheet.Range(Cells( 1 , 1 ), Cells(rowEnd, colEnd)).AutoFilter Field:= 11
Range("A2").Select
удаляет все строки :( Такое впечатление, что Select-у пофиг установленный фильтр.
Таблица формируется через vba для обоих случаев.
