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

我收到以下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)

最佳答案

VLookup在一行中使用,仅返回相同的值。您可以使用CountIf来知道该值是否存在。

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


如果该值不同于0,则该公司存在。

关于vba - 在vba中进行vlookup,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/36968139/

10-12 22:57