VBA抵消匹配不起作用

Question

我正在尝试通过使用VBA更改Excel中的另一个单元来运行目标搜索设置某个单元格等于零。

我想设置为零的单元格会改变位置，所以我需要使用匹配偏移组合。

我在运行代码时遇到编译错误无效的限定符。有任何想法吗？

谢谢。

Private Sub CommandButton1_Click()

Dim x As Integer
x = Application.WorksheetFunction.match("G3", Range("I6:SF6"), 0).Value

Range("I199").Offset(0, x.Value).GoalSeek Goal:=0, ChangingCell:=Range("GN197")


End Sub

Answer 1

尝试更换：

"G3"

使用：

Range("G3")

Answer 2

尝试使用命名范围而不是使用Range引用。这样，即使添加了行或列，您仍然可以使用命名范围。

Answer 3

根据official documentation，WorksheetFunction.Match的返回值为Double。所以你可能没有Value可用。尝试删除它。

PS：我没有用Excel来测试这个系统。

PS2：您没有指出产生错误的行。