Помогите составить формулу !!!!

[kutt]

Нужна формула для присваивания порядкового номера ячейки в которой содержится текстовая информация, но если текст в ячейки совпадает с предидущим то оставлять номер, а если нет то предыдущий номер +1.
Пример:

A1 содержит "ТЕКСТ1" нужно присвоить порядковый 1 номер в ячейку B1

далее

A2 содержит "ТЕКСТ2" нужно присвоить порядковый 2 номер в ячейку B2

но если текст повторился то номер оставляем

A3 содержит "ТЕКСТ2" нужно присвоить порядковый 2 номер в ячейку B3

Но если далее опять нет совпадений то

A4 содержит "ТЕКСТ3" нужно присвоить порядковый 3 номер в ячейку B4

И так далее... ПОМОГИТЕ ПЛИЗ, может кто сталкивался с такой проблемой??

[IgorGO]

видимо, в В1 пишем 1.
в В2 пишем

=ЕСЛИ(A2=A1;B1;B1+1)

разможаем эту формулу вниз... все

в формуле А и В написаны латинскими буквами, так что можно ее просто от сюда копировать

удачи

[kutt]

Сообщение от IgorGO

видимо, в В1 пишем 1.
в В2 пишем

=ЕСЛИ(A2=A1;B1;B1+1)

разможаем эту формулу вниз... все

в формуле А и В написаны латинскими буквами, так что можно ее просто от сюда копировать

удачи

ОТ СПАСИБО ОГРОМНОЕ!!! СИДЕЛ ДВА ДНЯ ГОЛОВУ ЛОМАЛ НИЧЕ НЕПОМОГАЛО!!!!!!! ВСЕ СУПЕР ПОМОГЛО, ВОТ ГДЕ НАСТОЯЩИЕ ПРОГРАММЕРЫ ОКАЗЫВАЕТСЯ!!!!!!

[kutt]

ЭТО все харашо только вот еще одна проблемка после этой возникла,
теперь необходимо удалить строки с повторяющимся содержимым (это уже другой файл )

[IgorGO]

а нумеровать и не надо было(((

запустите этот макрос и будет счастье
(только я на всякий случай рекомендую данные сначала записать, перед выполнением макроса)

Sub DelStr()
Dim r As Integer
r = 2
Do
  If Cells(r, 1) = Cells(r - 1, 1) Then
    Rows(r).Delete
  Else
    r = r + 1
  End If
Loop Until Cells(r, 1) = ""
End Sub