将值从一个表插入到另一个表

我有两张床单

PRINTSCREEN

在Sheet1中，我有一些重复的代码。 在第二张表中，我有一个代码列表，只出现一次，其他代码包含来自sheets1的代码。

我想在VBA中创build一个函数，它在sheet2中search来自sheet1的“代码”列中的值，以及来自sheet1的每个代码我想插入到第4列和第5列中与来自sheet2的列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）