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

Question

我有一个 2 sheets.I 想将 sheet2 的 A1 与 sheet1 的 A:A 进行比较，如果匹配则索引 A1- 的值第三行 B1 的最后一行 sheet（所以我坚持找到最后一行值的索引部分）。所以这需要完成几乎 1000 items.So 任何 vba 或这个的公式??

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

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

Compare 2 cells and index the last cell value

excel

vba

worksheet-function

excel-formula