将值从一张纸插入另一张纸

Question

我有两张

打印屏幕

在sheet1中，我有一些重复的代码。 在第二张工作表中，我列出了仅出现一次的代码列表，其中包含工作表1中的代码，以及其他代码。

我想在VBA中创建一个函数，该函数在工作表2中搜索工作表1中“代码”列中的值，并为工作表1中的每个代码，我想将工作表2中的第4列和第5列中的值分别插入到第4列和第5列中。

我尝试了一些东西，但是我是一个初学者：

Dim FindRowNumber As Long
For Each rw In ActiveSheet.Rows
FindRowNumber = Sheet2.Range("A1:F1000").Value.Find(What:=Cells(rw.Row, 1), LookIn:=xlValues)
GetValue1 = Sheet2.Cells(FindRowNumber , 4)
GetValue2 = Sheet2.Cells(FindRowNumber , 5)
Cells(rw.Row, 4).Value =GetValue1 
Cells(rw.Row, 5).Value =GetValue2
Exit For

Answer 1

嘿:)我认为您不需要VBA。 您可以仅在第4列或第5列中使用VLOOKUP从工作表1中提取匹配值。类似= VLOOKUP（A1，Sheet1！$ A $ 1：$ A $ 10,1，FALSE）