Макросы для VLOOKUP

Question

У меня есть две книги Excel. Теперь я хочу взять значение выбранного столбца, найти его в другой книге и сфокусировать эту строку. Как я могу сделать это с помощью VBA?

Answer 1

Предположим, вы просматриваете оба первых листа:

  Sub find_in_other_wb()
      On Error goto found_nothing
      Dim ws1 As Worksheet: Set ws1 = ActiveWorkbook.Sheets(1)
      Dim ws2 As Worksheet: Set ws2 = Workbooks("put book name here").Sheets(1)

      msgbox "Found in row " & ws2.Columns(ActiveCell.Column).Find(ActiveCell.Value).Row
    exit sub
found_nothing:
    msgbox "Couldn't find that"
End Sub

выдаст строку после выбора ячейки, содержащей искомое значение. Этот Sub может быть эффективным, если вы используете ярлык для него.