vba - 在 vba 中进行 vlookup

Question

我有 2 个工作簿。在第一个工作簿(包含宏)中，我尝试进行 vlookup 以确定值 strCompany 是否存在于第二个工作簿 (tmp_workbook) 的 A 列中。

我收到以下 VBA 错误:“无法获取 WorksheetFunction 类的 Vlookup 属性)”

Dim company_exists_in_list As Variant
Dim main_workbook As Workbook, tmp_workbook As Workbook

strCompany = main_workbook.Sheets("Input ID").Cells(10 + i + b * (j - 1), 3).Value 

company_exists_in_list = Application.WorksheetFunction.VLookup(strCompany, tmp_workbook.ActiveSheet.Range("A1:A100000"), 1, False)

Answer 1

VLookup 在一行中使用，只返回相同的值。您可以使用 CountIf 来了解该值是否存在。

company_exists_in_list =Application.WorksheetFunction.CountIf(tmp_workbook.ActiveSheet.Range("A1:A100000"),strCompany)

如果值不为 0，则表示公司存在。