Ошибки с автозаполняющими уравнениями VBA

Question

Sub Reflector() 

Dim i As Integer 
Dim endRow As Integer 
endRow = Cells(Rows.Count, "B").End(xlUp).Row 

Range("G2").Select 

For i = 2 To 40 

Range("G" & i).Select 

    If Range("H" & i).Value = "1" Or Range("H" & i).Value = "-1" Then 

    ActiveCell.Formula = "=ROW(A1)" 

    ActiveCell.AutoFill Destination:=Range(ActiveCell.Address & ":G" & endRow) 

    End If 

Next i 

End Sub 

Я хочу, чтобы макрос проверял значения в столбце H и сохранял подсчет времени, когда он имеет значение НЕ -1 или 1, а затем записывает это в столбце G. Если он попадает значение с 1 или -1 в столбце G, я бы хотел, чтобы он перезапустил счет.

Процесс заключается в том, что я проверю столбцы H и автозаполнение на последнюю строку данных и «отскакивает назад», чтобы проверить следующее значение, а затем снова автозаполнение, если оно соответствует 1 или -1.

Здесь ошибка я получаю:

Answer 1

Avoid using Select in and ActiveCell (если это абсолютно необходимо).

Попробуйте этот код:

Sub Reflector() 

Dim ws as Worksheet 
Set ws = WOrksheets("Sheet1") 'change as needed 

Dim i As Integer 
Dim endRow As Integer 
endRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row 

For i = 2 To 40 

    If ws.Range("H" & i).Value = "1" Or ws.Range("H" & i).Value = "-1" Then 

     With ws.Range("G" & i) 
      .Formula = "=ROW(A1)" 
      .AutoFill Destination:=ws.Range(ws.Range("G"&i),ws.Range("G" & endRow)) 
     End With 

    End If 

Next i 

End Sub 

UPDATE

К @ ScottCraner указывают этот бит кода также будет работать и легче для чтения/сохранения.

Dim ws As Worksheet 
Set ws = Worksheets("Sheet1") 'change as needed 

Dim endRow As Long 
endRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row 

With ws.Range("G2:G" & endRow) 
    .FormulaR1C1 = "=IF(OR(RC[1]=1,RC[1]=-1),1,R[-1]C+1)" 
End With 

Скриншот протестированного кода: