Question

我写了这个公式，它在常规工作表中运行得很好，但我不知道如何将它放入VBA：

=IF(ISERROR(VLOOKUP(A2;MW!$A$2:$X$1000;6;FALSE));IF(ISERROR(VLOOKUP(A2;RZ!$A$2:$X$1000;6;FALSE));IF(ISERROR(VLOOKUP(A2;FK!$A$2:$X$1000;6;FALSE));IF(ISERROR(VLOOKUP(A2;MK!$A$2:$X$1000;6;FALSE));VLOOKUP(A2;AS!$A$2:$X$1000;6;FALSE);VLOOKUP(A2;MK!$A$2:$X$1000;6;FALSE));VLOOKUP(A2;FK!$A$2:$X$1000;6;FALSE));VLOOKUP(A2;RZ!$A$2:$X$1000;6;FALSE));VLOOKUP(A2;MW!$A$2:$X$1000;6;FALSE))

但是，我想让这个过程自动化。它必须将此行放在F列的每个单元格中，直到遇到空行。我知道A2部分需要进行某种迭代（对于单元格F5函数，它将是A5等等）。

Answer 1

这样的东西？

Range("F2:F" & Cells(1, 6).End(xlDown).Row).Formula = _
   "=IF(ISERROR(VLOOKUP(A2;MW!$A$2:$X$1000;6;FALSE));IF(ISERROR(VLOOKUP(A2;RZ!$A$2:$X$1000;6;FALSE));IF(ISERROR(VLOOKUP(A2;FK!$A$2:$X$1000;6;FALSE));IF(ISERROR(VLOOKUP(A2;MK!$A$2:$X$1000;6;FALSE));VLOOKUP(A2;AS!$A$2:$X$1000;6;FALSE);VLOOKUP(A2;MK!$A$2:$X$1000;6;FALSE));VLOOKUP(A2;FK!$A$2:$X$1000;6;FALSE));VLOOKUP(A2;RZ!$A$2:$X$1000;6;FALSE));VLOOKUP(A2;MW!$A$2:$X$1000;6;FALSE)"

在单元格中插入公式，直到空行

1 个答案: