Question

我在网上搜索了我的问题的解决方案，但无法找到它们。运行以下内容时，我收到错误：第二行的外部过程无效。有人有建议如何解决这个问题吗？谢谢。

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

整数的最大值是~32767。如果你希望你的计数器那么高（可能很长？）

，你必须选择不同的数据类型

Answer 2

你的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

外部程序无效

2 个答案: