WorksheetFunction.Vlookup在For-Each循环中返回错误

是因为WorksheetFunction.Vlookup函数在找不到匹配项时会抛出运行时错误，而For-Each循环是逐个处理集合中的元素，当遇到错误时会中止循环。

WorksheetFunction.Vlookup是Excel中的一个函数，用于在指定的数据范围中按照某一列的值查找匹配项，并返回对应的值。在VBA中使用WorksheetFunction.Vlookup函数可以实现相同的功能。

当WorksheetFunction.Vlookup在For-Each循环中返回错误时，可能有以下几种原因和解决方法：

1. 数据范围或查找值错误：确保数据范围和查找值的参数传递正确，数据范围应为一个有效的Excel数据区域，查找值应为一个有效的值。
2. 查找列不在数据范围中：确认要查找的列是否在数据范围中，如果不在，则会返回错误。可以通过调整数据范围或确认查找列的位置来解决。
3. 不精确匹配导致找不到匹配项：WorksheetFunction.Vlookup函数默认进行精确匹配，如果找不到完全匹配的项，则会返回错误。可以尝试添加第四个参数（范围_lookup），将其设置为FALSE，以进行近似匹配。
4. 数据范围不包含所需的结果列：确保数据范围中包含要返回的结果列。如果结果列不在数据范围中，则会返回错误。可以调整数据范围来包含结果列。

综上所述，要解决WorksheetFunction.Vlookup在For-Each循环中返回错误的问题，需要确保传递正确的参数、确认查找列在数据范围中、尝试近似匹配、以及确保结果列在数据范围中。