比较2单元格并索引最后一个单元格的值

Question

我有一张2张纸。我想将sheet2的A1与sheet1的A：A进行比较，如果匹配，则索引第三张B1的B1最后一行的值（所以我坚持查找最后一行值的索引部分）。所以这需要完成近1000个items.So任何vba或公式为此？

Answer 1

OK，这为我工作的测试只是做了XXX的数据值。您可以修改YYY。

Option Explicit 
Sub CompareAndCopyData() 

     Dim DataWorkSheet As Worksheet 

     Set DataWorkSheet = ThisWorkbook.ActiveSheet 

     With DataWorkSheet 

      Dim SearchRange As Range 
      Set SearchRange = .Range("E2:E5") 

      Dim SearchText As String 
      SearchText = .Range("E2").Value 

      Dim SearchResult As Range 
      Set SearchResult = SearchRange.Find(What:=SearchText) 

      Dim LastColumn As Long 
      LastColumn = .Cells(SearchResult.Row, .Columns.Count).End(xlToLeft).Column 

      .Cells(8, "F").Value = .Cells(SearchResult.Row, LastColumn).Value 

     End With 

End Sub