excel vba编译错误子项或未定义函数

我正在运行一个简单的for循环，但出现错误：

编译错误：未定义子或函数

我用vba制作了一个模块：

Option Explicit

Sub 100group()

Dim i As Integer, E As Integer
  E = 101
  For i = 2 To 37317
    If (cell(i, 1) < E) Then cell(i, 3) = E Else E = E + 100
    End If

  Next i

End Sub

选项显式
第100分组（）
Dim i为整数，E为整数
E=101
对于i=2至37317
如果（单元（i，1）

• 单元格（i，1）

  应该是

  单元格（i，1）

• 此外，sub/function.variable名称不能以数字开头

• 另外，您的

  If

  语句语法也很好

• 最后，您将遇到另一个错误，因为

  i

  被声明为

  整数

  ，它最多只能保存32768的值。因此，您需要：

  Dim i As Long
  

作为一个

Long

数据类型，最多可保存2147483647的值

---

总之，您应该使用：

Option Explicit

Sub group100()

Dim i As Long, E As Long
  E = 101
  For i = 2 To 37317
      If (Cells(i, 1) < E) Then
          Cells(i, 3) = E 
      Else 
          E = E + 100
      End If
  Next i

End Sub

选项显式
分组100（）
我和你一样长，我和你一样长
E=101
对于i=2至37317
如果（单元格（i，1）

很乐意提供帮助，如果解决了您的问题，请标记为答案。