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可能会有效。