Присвоение порядкового номера по заданному условию

[tns-ka]

Здравствуйте!
Задача такая: есть документ, в котором должны заполняться два столбца "Порядковый номер" и "Заказ". Заказы могут быть записаны в двух видах - число со звёздочкой (*) на конце или просто число. Заказам, которые записаны без звёздочки, нужно присвоить в соседнем столбце порядковый номер, причём заранее неизвестно, сколько будет вообще заказов. Трудность в том, что заказы со звёздочками и без них идут вперемешку.

Файл с упрощенным примером прикрепил.

[vikttur]

=ЕСЛИ(ЕЧИСЛО(B2);МАКС($A$1:A1)+1;"")

[kuklp]

И макросом:

Public Sub www()
    Dim i&, c As Range
    For Each c In Range([b2], [b1].End(xlDown))
        If InStr(1, c.Value, "*") = 0 Then
            i = i + 1
            c.Offset(, -1) = i
        End If
    Next
End Sub

[Serge 007]

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

=ЕСЛИ(--ЕНД(ПОИСКПОЗ("*~**";B2;0));СЧЁТ($A$1:A1)+--ЕНД(ПОИСКПОЗ("*~**";B2;0));"")

[tns-ka]

Спасибо огромное за помощь!

[tns-ka]

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

И макросом:

Public Sub www()
    Dim i&, c As Range
    For Each c In Range([b2], [b1].End(xlDown))
        If InStr(1, c.Value, "*") = 0 Then
            i = i + 1
            c.Offset(, -1) = i
        End If
    Next
End Sub

Если в столбце "Заказ" встречается пустая строка, макрос "спотыкается" и не ставит порядковые номера ниже этой строки Как с этим справиться?

[IgorGO]

заменить
[b1].End(xlDown)
на 
Cells(Rows.Count, 2).End(xlUp)
или
Cells(UsedRange.Rows.Count, 2)

[tns-ka]

О, теперь работает Спасибо!

[Mikola55]

Не получается с функцией СЧЕТЗ(). Если в ячейке ссылка, а значение пусто или 0, ее все равно считают. хотя и пропускают написание в соответствующей ячейке.

[IgorGO]

используйте СЧЕТЕСЛИ <>0