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

是否可以使用＃N / A复制/粘贴所有行而无需过滤列？

1 个答案: