Убрать лишнее из ячейки.

[`Dmitry]

Ситуация такая. Есть столбец:

АБВ АБВ абв а0,5
АБВ абв а45

Надо оставить только заглавные символы в ячейке. Не соображу как организовать проверку. Подскажите плиз. На форумах видел для Word
такой пример If fChar.Characters.First Like "[A-ßA-Z]" Then
Пробелы считать вроде бестолку...

[SAS888]

Можно, например, воспользоваться функцией:

Function Zamena(Cell As Range) As String

    Dim i As Integer
    For i = 1 To Len(Cell)
        Select Case Asc(Mid(Cell, i, 1))
        Case 65 To 90, 32, 192 To 223: Zamena = Zamena & Mid(Cell, i, 1)
        End Select
    Next

End Function

К сожалению, Вы не сказали, оставлять пробелы или нет. В предложенном варианте они оставляются.

[`Dmitry]

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

Можно, например, воспользоваться функцией:

Function Zamena(Cell As Range) As String

    Dim i As Integer
    For i = 1 To Len(Cell)
        Select Case Asc(Mid(Cell, i, 1))
        Case 1 To 26, 32, 192 To 223: Zamena = Zamena & Mid(Cell, i, 1)
        End Select
    Next

End Function

К сожалению, Вы не сказали, оставлять пробелы или нет. В предложенном варианте они оставляются.

Спасибо. Попробую прикрутить. Пробелов не надо, но думаю потом Rtrim прогоню у всё будет оОК.

[SAS888]

Пробелов не надо

Тогда просто из строки

Case 65 To 90, 32, 192 To 223: Zamena = Zamena & Mid(Cell, i, 1)

убрать код символа пробела 32. Т.е. заменить на

Case 65 To 90, 192 To 223: Zamena = Zamena & Mid(Cell, i, 1)

[slan]

вот так мне кажется чуть эффективнее:

Function zam(cell As Range) As String
Dim i&, s$, sr$
s = cell
For i = 1 To Len(cell)
    sr = Mid(s, i, 1)
    If UCase(sr) = sr Then zam = zam & sr
Next
'zam = Trim(zam)'zam=application.trim(zam)
End Function

[SAS888]

вот так мне кажется чуть эффективнее

Может быть, но ведь автору нужно

оставить только заглавные символы в ячейке

т.е. исключить все другие символы (@, #, $ ит.п.) Я исходил именно из этого.

[`Dmitry]

Подскажите ламаку как прикрутить функцию. Всю голову изломал.
к первой ячейке.

[`Dmitry]

Сообщение от `Dmitry

Подскажите ламаку как прикрутить функцию. Всю голову изломал.
к первой ячейке.

\всё. извиняюсь. сделал

[slan]

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

Может быть, но ведь автору нужно т.е. исключить все другие символы (@, #, $ ит.п.) Я исходил именно из этого.

да, согласен..

но mid() все равно лучше вычислить заранее один раз