如何比较不同工作表中的两列并将值放入另一张工作表中?

Question

>我有 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 中工作，而不是在我想要的第一个工作表中工作。

Answer 1

这可能是因为在

Range("A1").Select

您不指定必须选择 A1 的工作表。因此，如果您当前打开了另一个工作表，则将在此处进行选择。尝试像上面那行一样定义它

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