vba - 仅选择公式给出数字的单元格而不是空单元格

Question

我有一个 Excel 工作表，我将以下公式应用于所有单元格:

=IF(OR(A2="";B1="");""; IF(ISERR(VLOOKUP($A2&"-"&B$1;Sheet1!$D$1:$D$1000;1 ;FALSE));0;1))

该公式根据某些条件给出 0 或 1，如果不满足条件则给出 ""(空单元格)。现在，从这些结果开始，我想选择工作表中给出结果 0 或 1 的所有单元格，以进行进一步操作。知道所有这些单元格之间都没有空格，我该怎么做？

Answer 1

尝试，

dim a as long, i as long, rng as range
with cells(1, "A").currentregion
    set rng = .specialcells(xlCellTypeFormulas, xlnumbers)
    for a=1 to rng.areas.count
        for i=1 to rng.areas(a).cells.count
            'do something with rng.areas(a).cells(i)
        next i
    next a
end with

'more simply as,
with cells(1, "A").currentregion
    .specialcells(xlCellTypeFormulas, xlnumbers).select
end with

您还可以使用 F5 (GoTo)、特殊、公式、数字等。