Сравните 2 ячейки и индексируйте последнее значение ячейки

Question

У меня есть 2 листа. Мне хотелось бы сравнить A1 листа 2 с A: A листа 1, а если он совпадает, то индексировать значение последней строки A1 в B1 третьего листа (Таким образом, я застрял с индексирующей частью, которая находит последнее значение строки). Так что это нужно сделать для почти 1000 элементов. Так что любая формула vba OR для этого?

Answer 1

ОК, это работало для меня тест только делает значение 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