Excel VBA宏脚本:从工作表2中的工作表1和找到的复制值中查找值

Question

我面临以下挑战:我有一张Excel表格,其中包含A栏的值(例如,C Klasse,A Klasse,Golf,Astra").

在第二张表格中,我有2列A和B,其中包含以下信息:A列,梅赛德斯,欧宝,大众等"和B列我有以下内容,C Klasse,A Klasse,Golf,Astra"(与表1列A)相同的信息.

目标:从工作表2列B中的第1页,A列中找到值 - >从工作表2列A复制值 - >粘贴到工作表1列M.

示例:A2 = C Klasse - >查找,在表2中找到C Klasse' - >在B42中找到,C Klasse' - >从A42复制内容,梅赛德斯' - >粘贴M2.

这是我提出的代码,我刚开始这样,请耐心等待:

Range("A2").Select
Selection.Copy
Sheets("Form2").Select
Cells.Find(What:=Range("A2"), After:=ActiveCell, _
    LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
Range("A193").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Form1").Select
Range("M2").Select
ActiveSheet.Paste

Answer 1

因此,使用Excel Formula VLOOKUP而不是VBA解决了这个问题.

公式如下所示:= VLOOKUP(A2,Ressort!$ A $ 1:$ B $ 232,2,FALSE)

非常感谢@Siddharth Rout - 他是那个睁开眼睛的人!:)