Excel VBA компилировать суб ошибки или функции не определен

Question

Я бег простого цикла, но я получаю ан ошибки:

compile error: sub or function not defined

Я сделал модуль в 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 

Answer 1

• cell(i, 1) должно быть Cells(i, 1)

• Кроме того, имена sub/function.variable не могут начинаться с числа.

• Также, ваш синтаксис инструкции If хорошо.

• Наконец, вы получите следующую ошибку, так как i объявлен как Integer, который может содержать только до 32 768. Так что вам нужно:

  Dim i As Long 
  

Как тип Long данных может содержать значение до 2.147.483.647

---

Подводя итог, следует использовать:

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