Здравствуйте,
Я работаю в Excel 2013,
Мне нужен автофильтр "#N/A" в столбце "F", если отфильтровать "#N/A" нет данных с заголовком, код "Goto 0:" делает...
но мой код не работает, перейдите к 0:
Подтесты()
'Вставить фильтр и #Н/Д Копировать и вставить
'VBA — отключить автофильтр из кода
Если ActiveSheet.AutoFilterMode Тогда
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Включить автофильтр
End If
'Автоматический фильтр 2-й столбец Пустые ячейки фильтр
Тусклый LastRow как можно дольше
LastRow = Range("B" & Rows.Count).End(xlUp).Row
При ошибке возобновить следующий 'если фильтр, то дальше не идут данные
ActiveSheet.Range("$A$1:$F" & LastRow).Поле AutoFilter:=6, Criteria1:="#N/A" 'Неприменимые ячейки отфильтровать, затем выбрать видимые ячейки
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Select
'Остановить копирование, если в отфильтрованном диапазоне нет данных
Если Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Тогда
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
'Сделай что-нибудь код.........
Application.CutCopyMode = False
Еще
ActiveSheet.AutoFilterMode = Ложь
Перейти к 0:
End If
'Сделай что-нибудь код.........
0:
End Sub
Пожалуйста, помогите мне, спасибо за заранее
Остановить копирование, если в отфильтрованном диапазоне нет data.zip
Остановить копирование, если в отфильтрованном диапазоне нет data.zip