Excel VBA 匹配函数

Question

不幸的是，我的代码中的一个 Match.Evaluate 函数不起作用。

下面可以看到公式：

Worksheet_Bilgiler = "Egitim Bilgileri"
Ders_Adi = "Deneme1"

Ders_Satir_bul = Worksheets(Worksheet_Bilgiler).Evaluate("=Match(" & Ders_Adi & ", '" & Worksheet_Bilgiler & "'!C:C, 0)")

MsgBox Ders_Satir_bul

你们能帮帮我吗？

Answer 1

您需要在 Ders_Adi 变量前后添加双引号 "。您可以使用 Chr(34).

将您的 Evaluate 行更改为：

Ders_Satir_bul = Worksheets(Worksheet_Bilgiler).Evaluate("=Match(" & Chr(34) & Ders_Adi & Chr(34) & ", '" & Worksheet_Bilgiler & "'!C:C, 0)")

Excel VBA 匹配函数

Excel VBA Match function

excel

vba

match

evaluate