Vba 比较2张excel工作表并返回数据

我试着比较两张Excel表格，表1列O到表2列A:m，如果发现匹配，它将复制表2“匹配数据的下单元格”（即匹配数据A3，复制A4），然后粘贴到表1列R。我（非常）不熟悉VBA和宏，所以我不知道如何做。提前谢谢

在第O列的表1中，数据为美元、日元、TWD等。在表2的A至M列中，为每种货币的规定汇率。如果表1第O列数据为USD，将在表2中搜索匹配的“USD”；如果A3单元格的数据为美元，则汇率为A4单元格，该单元格将被复制并粘贴到与美元行相对应的第1页R列中

所以我要处理的是这样的事情：

这就是我在宏之后要找的

由于工作表1的单元格O1与工作表2的单元格A3匹配，我希望它返回工作表2的单元格A4的值，并将其粘贴到工作表1单元格R1的对应行

让我知道这是否合理，或者您是否需要进一步澄清。

---

谢谢

您需要的大部分代码都可以使用宏记录器自行管理：

开始录制新宏

选择单元格O1

复制所选单元格（按RMB或ctrl+C）

到第2页

用鼠标选择您的数据（A3:M7）

按ctrl+F打开“查找”窗口

复制单元格的粘贴值

按回车键。应选择具有搜索值的单元格

按向下箭头将所选内容向下移动一个单元格

从选定单元格复制值

到第1页

按向右箭头键移动到R列

粘贴复制的值

停止录制宏

---

在此之后，您需要找到如何使用

For

循环，并将其添加到代码中。祝你好运

你的描述很混乱。到目前为止你试过什么？有什么代码可以显示吗？也许是一个图像来帮助可视化所需的输出？我真的不明白你想要什么。请你说清楚一点好吗？提前感谢。我无法获得代码，在第2页中找到匹配数据后，它将复制匹配数据下方的一个单元格。请将您的代码添加到您的问题中，以便我们可以看到问题所在。Dim LR As Long，i As Long With Sheets（“Sheet1”）LR=.Range（“A”）和Rows.Count）。End（xlUp）i=1到LR的.Row，带.Range（“A”和“i”）选择。复制图纸（“Sheet2”）。选择范围（“A8:M34”）。选择？？？Application.CutCopyMode=错误选择。复制工作表（“Sheet1”）。使用.Range（“B”和i）选择。选择活动工作表。使用End和Next粘贴结束。我以感谢结束。请将其添加到您的问题中。您可以使用问题下方的

edit

链接编辑您的问题。@Lyn我检查了您的代码，并且：1）您正在使用

与。。。以错误的方式结束

。这是为了简化代码，但您尝试选择一些单元格。使用

一些文本，而不是
一些文本。选择
。仅正确使用第一张带有图纸的
（“Sheet1”）
。2） 缺少的部分是第6点至第9点。试试看，告诉问题出在哪里（如果有）。