使用VBA比较参考表中的数据，如果满足变化条件则给出输出

Question

我正在处理大数据，我需要在Excel中使用VBA自动执行此过程 任何使用VBA的帮助都将受到赞赏

有三张纸;参考，输入和输出

参考表值固定

Jack (Position A2),  5(position B2);
Jones (Position A3) , 6(Position B3);

输入表格[输入表格值序列可能会改变，目前使用vlookup进行比较]

Jones  (Position A2) , 11 (position B2);
Jack (Position A3)   , 4 (Position B3);

输出表（如果参考和输入之间的差异大于4，则需要输出 ）

Jones (Position A2) , 11 (position B2);

Answer 1

好吧，正如我所看到的，你需要做以下步骤 -

首先获取每张表中有多少行，您可以使用此代码段执行此操作：

Worksheets.Select (1) 'this select the first sheet in a the current workbook
lastrow = Range("A65000").End(xlUp).Row 'this return the row number of the last row that have a value <> empty in column A

为每张纸张执行此操作 - 为循环设置上限。

接下来是在输入表上开始循环。您现在可以使用Match功能查找输入中的项目是否出现在参考中。并获得它的价值。然后检查它们之间的差异

如果diff大于4，则将整行复制到输出，否则递增循环计数器。

应该这样做。

随意请求澄清，英语不是我的母亲，所以我可能有点模糊。