數組中的通配符查找 - 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 在數組中搜索（查找）值
• 堆棧溢出：數組中的通配符搜索