Макрос: поставить пробел перед заглавной буквой

[Vitoz85]

В экселевской таблице (20 000 строк) есть столбец где написано ИмяОчество без пробела. Как сделать так, чтоб был пробел между словами
"ИванИванович" превратить в "Иван Иванович"

[Казанский]

Работает с выделенным диапазоном:

Sub bb()
Dim c As Range, s$, i&, d$
For Each c In Selection
    s = c
    For i = 2 To Len(s)
        d = Mid$(s, i, 1)
        If d = UCase(d) Then c = Left$(s, i - 1) & " " & Mid$(s, i): Exit For
    Next
Next
End Sub

[Vitoz85]

ОГРОМНОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБИЩЕ!!!

[DG2k6]

Сообщение от Казанский

Работает с выделенным диапазоном:

Sub bb()
Dim c As Range, s$, i&, d$
For Each c In Selection
    s = c
    For i = 2 To Len(s)
        d = Mid$(s, i, 1)
        If d = UCase(d) Then c = Left$(s, i - 1) & " " & Mid$(s, i): Exit For
    Next
Next
End Sub

Зарегистрировался чтобы сказать ЧЕЛОВЕЧЕСКОЕ Спасибо! Круче этого варианта ничего нет. Весь инет облазил. Спасибо, друг.

[Hugo121]

Вообще можно сделать покруче - навесить один trim() в начале на переменную c, а второй application.trim() на конечный результат - это от дураков и брака.