Как убрать буквы в конце ячейке?

[Anatoly1982]

Ситуация такова:
есть столбцы с адресом проживания, например:

Г КОТОВО УЛИЦА 60 ЛЕТ ВЛКСМ, д 1 2
Г КАЛАЧ-НА-ДОНУ УЛИЦА ОКТЯБРЬСКАЯ, д 5 6
ХОПЕРСКИЙ ПОСЕЛОК СЕЛЬСКОГО УЛИЦА КОМСОМОЛЬСКАЯ, д 1

Можно ли как между домом и квартирой поставить "," или "кв. " ?

И есть такой вариант:

Г КОТОВО УЛИЦА 60 ЛЕТ ВЛКСМ, д 1 ,кв 2
Г КАЛАЧ-НА-ДОНУ УЛИЦА ОКТЯБРЬСКАЯ, д 5 ,кв 6
ХОПЕРСКИЙ ПОСЕЛОК СЕЛЬСКОГО УЛИЦА КОМСОМОЛЬСКАЯ, д 1 ,кв
Г УРЮПИНСК ПЕРЕУЛОК КАРЬЕРНЫЙ, д 14 ,кв

в таком случае можно ли как прибить в ячейка ",кв" после которых ничего нет?

[alex77755]

В принцЫпе можно всё!
Даже козу на возу...
даже можно "..между домом и квартирой.."
Вот только ИМХО с ИИ напряг..
Вдруг не определит разницу между возом и квартирой...

[Anatoly1982]

ЭЭэммм...направьте мысль в нужное русло, что то не соображу блин

[kuklp]

Как-то так:

Public Sub www()
    Dim c As Range, s&, a
    For Each c In [a:a].SpecialCells(2, 2)
        If InStr(1, c, "кв") = 0 Then
            a = Split(Trim(c), " "): s = UBound(a)
            If IsNumeric(a(s)) And IsNumeric(a(s - 1)) Then _
            a(s - 1) = a(s - 1) & ", кв.": c = Join(a, " ")
        ElseIf Right(Trim(c), 2) = "кв" Then
            c = Trim(Left(c, Len(c) - 4))
        End If
    Next
End Sub

[vikttur]

=ПОДСТАВИТЬ(A1&" ";" ";", кв ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;" ";))+НЕ(ЕЧИСЛО(ПОИСК(" ";ПСТР(A1;ПОИСК(", д ";A1)+4;9)))))