Vba 查找&；与视觉结果的差异进行比较。。？

有人能帮我创建一个宏来比较一些行吗？如果它有差异，那么就放一些可视化的东西，这样我就可以很容易地注意到它了

例如： 我有。。 A列：数字列表（比如1到10000） B列：文本列表，例如是或否

F列：另一个数字列表（比如1到10000） G列：是或否的另一个列表

我需要比较A列和F列。。若要查找重复项，请在找到重复项后比较B列和G列。 如果B&G=相同，例如是或否，则不执行任何操作 如果B&G=不同，例如B为是，G为否，则将该行高亮显示，或在H列中添加一些内容，说明错误，或突出一些可视内容，以便我能注意到

但是，A列和F列混乱不堪。。他们不一样。。例如，每个示例都有相同的数字，但不在相同的位置

这是否可以通过一个循环来实现，因此它可以实现每一行

---

添加一个比较数值的公式

例如，在

D1

中键入

=B1=G1

以显示

TRUE

或

FALSE

，或者更好地键入

=IF（B1=G1，“，”ERROR”）

。然后选择范围

B1:B30

，然后按

Ctrl+D

向下复制公式

编辑：

对不起，我错过了混乱的部分

在

D1

中键入公式

=VLOOKUP（F1，$A$1:$B$17,2，FALSE）=G1

（或公式

=IF（VLOOKUP（F1，$A$1:$B$17,2，FALSE）=G1，“，”ERROR”）

），然后

Ctrl+D

将其复制下来

编辑2：

这个公式很有效。如果您得到

#N/A

，这是因为

VLOOKUP

函数在表中找不到值。在下面，您可以看到使用这些公式得出的结果：

I1 =VLOOKUP(F1,$A$1:$B$17,2,FALSE)=G1
J1 =IF(VLOOKUP(F1,$A$1:$B$17,2,FALSE)=G1,"","Different")
K1 =IFERROR(VLOOKUP(F1,$A$1:$B$17,2,FALSE)=G1,"Missing")
L1 =IFERROR(IF(VLOOKUP(F1,$A$1:$B$17,2,FALSE)=G1,"","Different"),"Missing")

---

您可以使用C列中的

VLOOKUP（）

来完成此操作。例如：在C1中-

=VLOOKUP（A1，F$1:G$30,2，FALSE）

看起来工作正常，谢谢：）编辑：不工作，它没有比较值：（这将起作用，但是如果我将其放入第C行，那么我需要比较第B行和第C行。您可以使用条件格式，或者在ColD中添加第二个公式，或者将其构建到ColC中的公式中。