在vba中执行vlookup

Question

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

我收到以下VBA错误： ＆＃34;无法获取WorksheetFunction类的Vlookup属性）＆＃34;

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不同，那么该公司就存在。