excel - 如何比较两个不同的工作表并将值放在各自的位置？

Question

我想通过 VBA 比较两个不同电子表格中的两个不同单元格(一张表是基础表)，如果它们相同，则取它们要比较的值旁边的值，并将值放在各自的值中职位。

因此，在图中，A 在两个工作表中都是匹配的，因此值 30 被复制到基础工作表中。我正在处理的电子表格并不像图像那样完美排列。

如果您需要更多说明，请告诉我。谢谢!

Answer 1

正如我所评论的，在这种情况下您可以使用 VLOOKUP。
假设您的值都在两个工作表的 A 列到 B 列中，并且 A1 和 B1 是标题，您可以在单元格 B2 中尝试以下公式:

=VLOOKUP(A2,Sheet2!A:B,2,0)

这会给你上面的结果。还假设您的工作表名称为 Sheet1 和 Sheet2。

编辑: VBA 代码

1. 使用公式属性

   With Sheets("Sheet1").Range("A2")
       .Formula = "=VLOOKUP(A2,Sheet2!A:B,2,0)"
       .Value = .Value
   End With
   

2. 使用评估方法

   With Sheets("Sheet1")
       ' 3 ways to use Evaluate method
       .Range("A2").Value = [VLOOKUP(A2,Sheet2!A:B,2,0)] ' Evaluate shortcut
       .Range("A2").Value = .Evaluate("VLOOKUP(A2,Sheet2!A:B,2,0)") ' explicitly
       .Range("A2").Value = Evaluate("VLOOKUP(A2,Sheet2!A:B,2,0)")
   End With
   

3. Using WorkSheetFunction Method - 汤姆已提供