如何比较两个不同Excel工作表中的两列

Question

我想将产品表上列出的我的产品与图像表上列出的相应图像链接起来，以便在名为 sheet3 的新表上获取结果。

例如，我有这个：

产品表：

Product ID     
10666      
10099      
5858

图片表：

Image ID    Image Url      
10666       http://img.mysite.com/images/AB25.jpg      
10094       http://img.mysite.com/images/80.jpg    
10095       http://img.mysite.com/images/51.jpg    
10099       http://img.mysite.com/images/5a.jpg    
9765        http://img.mysite.com/images/7c.jpg    
9765        http://img.mysite.com/images/b.jpg     
9766        http://img.mysite.com/images/e6.jpg    
9767        http://img.mysite.com/images/bb.jpg    
5858        http://img.mysite.com/66.jpg       
5858        http://img.mysite.com/77.jpg    

我想要的是 sheet3，它向我展示了这个：

Image ID    Image Url      
10666       http://img.mysite.com/images/AB25.jpg      
10099       http://img.mysite.com/images/5a.jpg    
5858        http://img.mysite.com/66.jpg       
5858        http://img.mysite.com/77.jpg

谢谢

Answer 1

你并不真的需要 vba，但无论如何试试这个：

Sub HTH()

    shtProducts.UsedRange.Resize(, 1).Copy Sheet3.Range("A1")

    With Sheet3.Range("A2", Sheet3.Cells(Rows.Count, "A").End(xlUp)).Offset(, 1)
        .Formula = "=VLOOKUP(A2,Images!$A:$B,2,FALSE)"
        .Value = .Value
    End With

End Sub

编辑：

Sub HTH()

   Worksheets("images").UsedRange.Resize(, 1).Copy Worksheets("sheet3").Range("A1")

    With Worksheets("sheet3").Range("A2", Worksheets("sheet3").Cells(Rows.Count, "A").End(xlUp)).Offset(, 2)
        .Formula = "=MATCH(A2,products!$A:$A,0)"
        .SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
        .ClearContents
        .Value = .Value
    End With

End Sub