макро для обработки текста в ячейках

[Kirja23]

привет всем!

помогите пожалуйсто написать программку для ...

в столбце А находятся
А1 = www.mail.ru
A2 = www.kz.fresh.com
A3 = www.more.net
A4 = www.raketa.fr

для столбца Б: если после последней точки 2 знака, тогда в столбце Б должен стоять +, иначе -.

Заранеее благодарен!!!!!!!!!!!!!!!!!!!!

[nilem]

попробуйте для В2
=ЕСЛИ(КОДСИМВ(ПРАВСИМВ(A2;3))=46;"+ ";"-")

[Kirja23]

спасибо за ответ, но мне нужен код в vba....

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

[nilem]

тогда так:

Sub ert()
Dim x, i&
With Range("A1", Cells(Rows.Count, 1).End(xlUp))
    x = .Value
    For i = 1 To UBound(x)
        If Len(x(i, 1)) - InStrRev(x(i, 1), ".") = 2 Then x(i, 1) = "+" Else x(i, 1) = "-"
    Next i
    .Offset(, 1).Value = x
End With
End Sub

[IgorGO]

видимо предполагалось так:

x(i, 1) = Iif(Len(x(i, 1)) - InStrRev(x(i, 1), ".") = 3, "+", "-")

принципиальное исправление это 3 вместо 2 (точка 3-я с конца строки).

[Kirja23]

nilem и IgorGo огромное спасибо за ваши ответы.

если можно помогите пожалуйсто еще: в ячейке А1 находится следующее: ПНM2, в столбце Б должен появляться предпоследний знак, ячейки А, т.е. М, если в А2=ДРФГ4, тогда Б2=Г

[Watcher_1]

Так пойдет?

For i = 1 To [A1].End(xlDown).Row
     Range("B" & i) = Left(Right(Range("A" & i), 2), 1)
Next

[Kirja23]

конечно пойдет, и вам спасибо!!!!!!!!!!!!!!!!!!!!!!!!!

[ikki_pf]

без цикла

Sub t()
  With Range([a1], [a1].End(xlDown)).Offset(, 1)
    .FormulaR1C1 = "=left(right(rc[-1],2),1)"
    .Calculate
    .Value = .Value
  End With
End Sub