Vba 从另一个工作表中获取相应的数据

我是excel新手，不擅长VB，无法找到解决以下问题的方法： 我有一张包含文章数据的表格，另一张只包含文章标题和引用次数

例如，第一张图纸包含以下列中的数据：

First Author    Second Author   Other Authors   Publication Year    Title   Published In    More Info

第二个是：

Title      Count

我想将第一页的所有数据复制到第二页的相应行（基于文章标题）。有些标题可能会在第一页上出现两次，但只能复制一次到第二页。此外，如果将从第一张图纸复制到第二张图纸的所有行高亮显示，以便我可以查看是否有任何错误，这将是一件好事

---

也欢迎使用VBA解决方案。

下面的代码将告诉您如何匹配单元格。假设您在第1页的第10列和第2页的第1列中有标题

dim i as integer
dim j as integer
for i = 1 to 'number of rows in sheet1
    for j = 1 to 'number of rows in sheet2
        if sheet1.cells(i, 1) = sheet2.cells(j, 1) then
            'do what ever you want with the matching records
        end if
    next j
next i

---

不需要VBA。这是一个简单的

INDEX-MATCH

组合

设置： 第1页：

=INDEX(Sheet1!$A:$G,MATCH(Sheet2!$A2,Sheet1!$E:$E,0),MATCH(Sheet2!C$1,Sheet1!$A$1:$G$1,0))

第2页：

=INDEX(Sheet1!$A:$G,MATCH(Sheet2!$A2,Sheet1!$E:$E,0),MATCH(Sheet2!C$1,Sheet1!$A$1:$G$1,0))

在表2中输入以下公式！C2，向下向右拖动：

=INDEX(Sheet1!$A:$G,MATCH(Sheet2!$A2,Sheet1!$E:$E,0),MATCH(Sheet2!C$1,Sheet1!$A$1:$G$1,0))

结果：

=INDEX(Sheet1!$A:$G,MATCH(Sheet2!$A2,Sheet1!$E:$E,0),MATCH(Sheet2!C$1,Sheet1!$A$1:$G$1,0))

---

让我们知道这是否有帮助。

如果有工作簿可以查看，那就太好了，但在我看来，你可以用Vlookupt来完成这项工作。这项工作做得很好，谢谢！然而，在我的结果中有160行N/A，即使标题与第一页中的数据匹配。我找不到任何反复出现的问题会导致这种情况，你知道为什么会发生吗？可能是误用了上面的公式。如果您的文件中没有任何敏感信息，请将副本上传到wikisend或类似网站，并在此处发布链接？我会亲自看一看。：）已将示例加载到wikiupload，wikisend对我无效。链接是：，谢谢！错误的原因很简单：标题不匹配。它们必须完全相同，除非你要做一些大规模的

IF-THEN

之类的事情。只要确保两列的标题中都没有多余的空格，而且它们必须完全准确。否则，它将需要一个更复杂的公式。无论如何，重新上传并下载固定文件。