Можно ли скопировать / вставить все строки с # N / A без фильтрации столбцов?

Question

Мне любопытно, можно ли скопировать все строки с помощью # N / A (Ошибка формулы), которая появляется в нескольких столбцах на одном листе (они изменяют электронную таблицу номеров полей на электронную таблицу), а затем вставлять их в другую?

То, что я сейчас использую для кода, требует выбора определенного столбца (поле 44 в этом примере).Поскольку столбцы с # N / A не являются статичными, я ищу способ скопировать все строки с # N / A без фильтрации.Это возможно или нет требований к полевым условиям?

Sheets("Fall 2016").Select
Range("$A$2:$CU$" & lrow).AutoFilter Field:=44, Criteria1:="#N/A"
Range("$A$3:$CU$" & lrow).Copy

Sheets("Sheet1").Select
Range("A3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Answer 1

Используйте SpecialCells, чтобы найти все ошибки, возвращаемые формулами.

dim lrow as long, erng as range

with workSheets("Fall 2016")

    lrow = 'get lrow here

    on error resume next
    set erng = .range("A2:CU" & lrow).specialcells(xlCellTypeFormulas, xlErrors)
    on error goto 0

    if not erng is nothing then
        intersect(.range("A:CU"), erng.entirerow).copy
        workSheets("Sheet1").Range("A3").PasteSpecial Paste:=xlPasteValues
    end if


end with