vba - Excel VBA マクロ スクリプト: シート 1 からシート 2 の値を検索し、見つかった値をコピーする

Question

次の課題に直面しています: 列 A に値を含む Excel シートがあります (例: C Klasse,A Klasse,Golf,Astra" )。

2 番目のシートには、次の情報を含む 2 つの列 A と B があります: 列 A、メルセデス、オペル、VW など」、B 列には次の「C Klasse、A Klasse、Golf、Astra」があります (シート 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

したがって、この問題は VBA ではなく Excel Formula VLOOKUP を使用して解決されました。

数式は次のようになります: =VLOOKUP(A2,Ressort!$A$1:$B$232,2,FALSE)

@Siddharth Rout に感謝します - 彼は私の目を開いてくれた人です! :)