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

Question

我面临以下挑战：我有一张Excel表格，其中包含A栏的值（例如，C Klasse，A Klasse，Golf，Astra“）。

在第二张纸上我有2列A＆amp; B包含以下信息：列A，梅赛德斯，欧宝，大众等“和B列我有以下，C Klasse，A Klasse，Golf，Astra”（与表1 A栏相同的信息）。

目标：从工作表2列B中的工作表1，A列中查找值 - ＆gt;从表2列A复制值 - ＆gt;粘贴到Sheet 1列M。

示例：A2 = C Klasse - ＆gt;在表2中找到，C Klasse'' - ＆gt;在B42中找到，C Klasse'' - ＆gt;复制内容来自A42 ,, Mercedes'' - ＆gt;粘贴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 - 他是那个睁开眼睛的人！ ：）