Смещаемая переменная для формулы =СЧЁТЕСЛИ (COUNTIF)

[Venger]

Добрый день!
Подскажите как в формуле [COUNTIF($G$6:G6,G6)] задать переменную для "G6", которая будет смещаться относительно строк G7,G8,G9.....(то есть диапазон подсчета будет постепенно увеличиваться). Первая часть диапазона не требует смещения, ей можно не присваивать переменную.

Код: (vb)

Sub SCHET_ESLI()
Dim oCell As Range
For Each oCell In Range("G6:G100000")
If oCell <> "" Then
Range(Cells(oCell.Row, 8 ), Cells(oCell.Row, 8 )) = [COUNTIF($G$6:G6,G6)]  ' где Range(Cells(oCell.Row, 8 ), Cells(oCell.Row, 8 )) - соответствует ячейке столбца"H:H"
    End If
Next
End Sub

[Venger]

Код: (vb)

Sub SCHET_ESLI()
     Dim oCell As Range

     For Each oCell In Range("G6:G100000")
          If oCell <> "" Then
               Range(Cells(oCell.Row, 8 ), Cells(oCell.Row, 8 )) = [COUNTIF($G$6:G6,G6)] 
          End If
     Next
End Sub

[boa]

Здравствуйте,

Код: (vb)

Cells(oCell.Row, 8 ) = Application.WorksheetFunction.CountIf(Range("$G$6:G" & oCell.Row), Range("G" & oCell.Row))

[Venger]

Спасибо за помощь!

[Дмитрий Щербаков(The_Prist)]

Может это нужно было?

Код: (vb)

Sub SCHET_ESLI()
    Range("H6:H" & Cells(Rows.Count, 7).End(xlUp).Row).FormulaR1C1 = "=COUNTIF(R6C7:RC7,RC7)"
End Sub