Равные интервалы

[FireFox]

Здравствуйте! помогите пожалуйста!
нужно по столбцам таблицы сделать такую вещицу:
разбить значения по столбцу на равные пять интервалов. а затем в зависимости в какой интервал попадает значение ячейки присвоить номер интервала. 1- наименьший, 5 - наибольшие значения.

[vikttur]

Лиса, махни огненным хвостом - появится таблица
Иначе ничего не понятно.

[FireFox]

вот пример как выглядит таблица
http://i054.radikal.ru/1006/ef/ee3aa217810e.jpg
по каждому столбцу разбить на 5 интервалов значения. а потом сравнить значение каждой ячейки в этом столбце с тем в какой интервал из пяти она пападает. и вписать номер интервала вместо значения. в итоге эта таблица будет срстоять из значений от одного до пяти

[EducatedFool]

Вам, наверное, следовало обратиться на форум по Фотошопу - именно там спецы умеют разбивать картинки на отдельные столбцы...

А здесь обычно работают с файлами Excel.

[FireFox]

суть не в данных. неважно как выглядит табличка. можно заполнить случайными значениями.

[IgorGO]

см.вложение.
значение, которое попадает на границу интервалов относится к меньшему интервалу.

[FireFox]

Спасибо!
а то я написала вот такую штуку

For j = 3 To b
Cells(42, j).Select
ActiveCell.FormulaR1C1 = "=(MAX(R[-35]C:R[-14]C))-(MIN(R[-35]C:R[-14]C))/5"

For i = 7 To c
If Cells(i, 8).Value < 135 Then
Cells(i, 8).FormulaR1C1 = "=1"
ElseIf (110.2 + 24.66) < Cells(i, 8).Value < (24.66 * 2) Then
Cells(i, 8).FormulaR1C1 = "=2"
ElseIf (24.66 * 2) < Cells(i, 8).Value < (24.66 * 3) Then
Cells(i, 8).FormulaR1C1 = "=3"
ElseIf (24.66 * 3) < Cells(i, 8).Value < (24.66 * 4) Then
Cells(i, 8).FormulaR1C1 = "=4"
Else
Cells(i, 8).FormulaR1C1 = "=5"
End If
Next i



Next j




но она не работает. присваивает всему столбцу единицы=(