无效的外部程序

我在网上search了解决scheme，但找不到它们。 当运行以下，我得到错误：第二行无效的外部过程 。 有没有人有build议如何解决这个问题？ 谢谢。

Dim i As Integer For i = 1 To 37918 If Sheets("nw").Cells(i, 1).Value = Cells(6, 3).Value And Sheets("nw").Celss(i, 2) > Sheets("nw").Cells(i, 2).Value Then Sheets("nw").Cells(15, 22).Value = Sheets("nw").Cells(i, 3).Value End If Next i End Sub Sub NewCost() End Sub 

另外，当我把Sub NewCost()放在Dim i as integer我得到这个错误：

如果没有阻止结束

Answer 1

您的For循环在Sub（）之外

尝试这个：

 Option Explicit Sub NewCost() Dim i As Long For i = 1 To 37918 With Sheets("nw") If .Cells(i, 1) = .Cells(6, 3) And .Celss(i, 2) > .Cells(i, 2) Then .Cells(15, 22) = .Cells(i, 3) End If End With Next End Sub 

Answer 2

整数的最大值是〜32767。 如果你想让你的柜台达到那么高的水平（或许很长），你必须select一个不同的数据types。