Excel VBAmacros脚本:在工作表2中find工作表1的值,findfind的复制值

我面临以下挑战:我有一个Excel表格,列A(例如,C Klasse,A Klasse,Golf,Astra)上的值。

在第二张纸上,我有2列A和B包含以下信息:列A,梅赛德斯,欧宝,大众等“和B列我有以下,, C KASSE,KASSE,高尔夫,Astra”(与表1列A)相同的信息。

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

示例 :A2 = C Klasse – >在Sheet 2中查找“C Klasse” – >在B42中find“C Klasse” – >从A42,“Mercedes” – > Paste 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 

在这里输入图像描述

所以这个问题是通过使用Excel公式VLOOKUP而不是VBA来解决的。

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

非常感谢@Siddharth Rout – 他是睁开眼睛的人! 🙂