vba - Excel VBA宏脚本：从Sheet 2中的Sheet 1中查找值并找到复制值

Question

我面临以下挑战：我有一个 Excel 表，其中 A 列的值（例如，、C Klasse、A Klasse、Golf、Astra"）。

在第二张表上，我有 2 列 A 和 B 包含以下信息：A 列、梅赛德斯、欧宝、大众等。与表 1 列 A) 上的信息相同。

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

示例：A2 = C Klasse -> 在工作表 2 中查找 ,,C Klasse'' -> 在 B42 中找到 ,,C Klasse'' -> 从 A42 复制内容 ,,Mercedes'' -> 粘贴 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 公式 VLOOKUP 而不是 VBA 解决的。

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

非常感谢@Siddharth Rout - 他是让我大开眼界的人！:)