在ctrl移位中使用WorksheetFunction在VBA Excel中輸入

Question

我想編寫一個VBA代碼，以便在不考慮“文本”和“數字”的情況下，根據給定的值查找匹配的單元格。

我們可以像這樣在Excel中執行此操作： =match("*207*", C:C & "",0) ，方法是按Ctrl + Shift + Enter 。

但是在VBA中，代碼pos = WorksheetFunction.Match(lookup_value, lookup_range & "", 0)不起作用。
有什么解決辦法嗎？

Answer 1

lookup_range & ""在VBA中不起作用，因為您無法將String連接到Range對象或Array 。 改為使用Evaluate ：

pos=Sheet1.Evaluate("match(""*207*"", C:C & """",0)")

---

要在評估中使用變量，請執行以下操作：

pos = Application.Evaluate("MATCH(""*" & lookup_value & "*""," & _
  lookup_range.Address(External:=True) & "& """",0)")