привіт,

Я працюю з Excel 2013,

Мені потрібен автофільтр "#N/A" у стовпці "F", якщо відфільтрувати "#N/A" немає даних із заголовком, код "Goto 0:" робить...

але мій код не працює, перейдіть до 0:

Subtestss()
'Фільтр Вставити та #Н/Д Копіювати та Вставити
'VBA – вимкнути автофільтр з коду
Якщо ActiveSheet.AutoFilterMode Тоді
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Увімкнути автофільтр
End If

"Автофільтр 2-го стовпця фільтр порожніх клітинок
Приглушений останній рядок
Останній рядок = Діапазон("B" і рядків.Кільк.).Кінець(xlUp).Рядок

При помилці Продовжити далі 'якщо фільтрувати, то далі не буде даних
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Not Applicable Cells Filter then select a vidljive клітинки
Діапазон("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Вибрати

"Зупинити копіювання, якщо відфільтрований діапазон не містить даних
Якщо Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1, то
Діапазон("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Select
Вибір. Копіювати
'Зробіть щось закодовано.........
Application.CutCopyMode = Неправда
Ще
ActiveSheet.AutoFilterMode = False
Перейти до 0:
End If

'Зробіть щось закодовано.........

0:
End Sub


Будь ласка, допоможіть мені, дякую за заздалегідь
  Припиніть копіювання, якщо у відфільтрованому діапазоні немає data.zip
  Припиніть копіювання, якщо у відфільтрованому діапазоні немає data.zip