Доброго день,
Есть вот такой код. Что сделать, что бы не удалялись вся таблица. Пример в приложении.
Спасибо.
Есть вот такой код. Что сделать, что бы не удалялись вся таблица. Пример в приложении.
Спасибо.
Код |
---|
Sub delete_rule_2() Dim xWs As Worksheet Dim lo As ListObject Dim iCol As Long For Each xWs In Application.ActiveWorkbook.Worksheets If xWs.Name <> "cover" And xWs.Name <> "mapping" Then xWs.Activate Set lo = ActiveSheet.ListObjects(1) iCol = lo.ListColumns("ABCD").Index On Error Resume Next lo.AutoFilter.ShowAllData With lo.Range .AutoFilter Field:=iCol, Criteria1:="X" 'Проблема, тут. Как только этого знаяения нет в колонке, удаляются все строки где его нет. Как поправить? If lo Is Nothing Then End Else lo.DataBodyRange.EntireRow.Delete lo.AutoFilter.ShowAllData End If End With End If Next xWs End Sub |