比較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