如何比較不同工作表中的兩列並將值放入另一工作表中？ vba

Question

我有3個工作表：WUR，Homologation和閱讀。

我想從「WUR」中讀取第1列，當我找到第一個值時，我想與來自「Homologation」的第一列進行比較，如果值相同，則將該值固定在工作表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