“子或function未定义”VBA

VBA新手在这里

当我运行我的代码时，收到错误“Sub or Function not defined”。 这发生在我的一个子程序中。 第一行由debugging器以黄色高亮显示。

Sub Description(Row As Integer, SheetName As String) With Worksheet(SheetName) .Cells(Row, 1) = ActiveCell.Offset(0, -3) .Cells(Row, 2) = ActiveCell.Offset(0, -2) .Cells(Row, 3) = ActiveCell.Offset(0, -1) End With End Sub 

这个子程序需要一个数字和一个string。 我想将特定的描述复制到另一个工作表“SheetName”中。 这是子程序调用之前的一段代码。 “x”的值在循环范围之外声明。

 string_temp = "Sheet2" ActiveSheet.Cells(i, 5).Select Call Description(x, string_temp) x= x + 1 

感谢帮助！

Answer 1

With Worksheet(SheetName)应With Worksheets(SheetName)

同样将Row As Integer Row as Long更改为Row as Long ， Integer实际上在VBA稍慢，因为编译器将其转换为Long进行处理。