如何比较不同工作表中的两列，并在另一个工作表中输入值？vba

我有3张工作表：WUR、认证和阅读

我想从“WUR”中读取第1列，当我找到要与“同源性”中的第一列进行比较的第一个值时，如果值相同，则将该值放入工作表3的固定列中，“读取”。此代码来自工作表3中的按钮

我试试这个：

Sub Read_Click()

      Dim x As Integer
      Application.ScreenUpdating = False

      NumRows = ActiveWorkbook.Worksheets("WUR").Range("A1", ActiveWorkbook.Worksheets("Homologation").Range("A1").End(xlDown)).Rows.Count

      Range("A1").Select

      For x = 1 To NumRows

      Next

End Sub

用我的代码，我试图从“WUR”的第一列中找到第一个值，但我的代码在第3页中工作，而不是在我想要的第一个工作表中

Range("A1").Select

您不需要指定必须选择A1的工作表。因此，如果您当前打开了另一个工作表，则将在该工作表中进行选择。试着定义它，就像你在上面做的一样

ActiveWorkbook.Worksheets("WUR").Range("A1").Select

---

我可以知道比较价值是独一无二的吗？你想做什么？是否要查找包含数据的第一行？如果打开了另一个WB，它仍可能在错误的WB中选择，这就是为什么您应该使用

ThisWorkbook

而不是

ActiveWorkbook

。