数组中的通配符查找 - VBA

Question

我在将值从一个数组查找到另一个数组时遇到问题。

数组是：

---

我的代码导致错误 2042：

Dim arr9 As Variant
ReDim arr9(LBound(arr7) + UBound(arr7))
i = 0
For i = LBound(arr7) To UBound(arr7) Step 1
arr9(i) = Application.VLookup(Left(arr7(i), 5) & "*", Arr, 1, 0)
Next i

我需要的是从 arr7 中找到项目，即 arr7(0) = zch20 在 Arr 中并将相应的值从 arr 分配给 arr9。 只需要查找前 5 个字符，因为它们是 arr 和 arr7 的共同字符，但需要将全名字符串插入到 arr9。

谢谢你。

Answer 1

VLOOKUP是一个工作表函数，用于单元格范围（或工作表表格），但不适用于 VBA 数组。

您可能更幸运的一个类似的 VBA 函数是Filter 。

Filter(sourcearray, match, [ include, [ compare ]])

---

更多信息：

• 文档： Filter功能
• Microsoft 支持： VLOOKUP：何时以及如何使用它（视频）
• AutomateExcel.com：VBA 在数组中搜索（查找）值
• 堆栈溢出：数组中的通配符搜索