VBA代码

Question

我尝试使用VBA执行以下任务：在表头中找到一个包含＆＃34;总数＆＃34; title，返回其列号，然后在raw与给定数字和列的交集处找到一个带有返回数字的单元格，最后将该单元格中的值赋给变量。然后将此变量的值写入另一个单元格。

例如，假设标题＆＃34;总数＆＃34;在AL列中，然后我尝试分配x = AL177然后AM173 = x。

事实上，它只是更复杂任务的一小部分，但遗憾的是我不能处理这一部分。

我写了

Sub script()
Dim x As Integer
x = Cells(177, Application.WorksheetFunction.Match("Total number", ActiveWorkbook.Sheets("sheet name").Range("2:2")))
Worksheet("sheet name").Range("AM173").Value = x
End Sub

我需要准确指定工作表名称（不仅仅是活动工作表或其他内容），因为一段时间后我将从另一张工作表中执行它。

当我尝试运行它时，Excel会给我一个错误：

  

＆＃34;编译错误：Sub或Function未定义＆＃34;

任何人都可以解释我的代码有什么问题以及应该怎么做？