Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

вставка символа между буквами текста

Автор ovetskiy, 22.12.2011, 13:53

« назад - далее »

ovetskiy

добрый день
подскажите пож можно ли как-то автоматизировать вставку символа между буквами в словахт.е
есть
100 ЛЕТ РУССКОГО ПРЕДПРИНИМАТЕЛЬСТВА
а желательно превратить в
1_0_0 Л_Е_Т Р_У_С_С_К_О_Г_О П_Р_Е_Д_П_Р_И_Н_И_М_А_Т_Е_Л_Ь_С_Т_В_А
и так в текстах разных ячеек

СПАСИБО

kuklp

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

MCH

Вариант на базе примера KuklP
Public Function www2$(s$)
    Dim txt$, i&
    For i = 1 To Len(s)
        txt = txt & "_" & Mid(s, i, 1)
    Next
    www2 = Replace(Mid(txt, 2), "_ _", " ")
End Function

ovetskiy

Цитата: MCH от 22.12.2011, 17:37
Вариант на базе примера KuklP
Public Function www2$(s$)
    Dim txt$, i&
    For i = 1 To Len(s)
        txt = txt & "_" & Mid(s, i, 1)
    Next
    www2 = Replace(Mid(txt, 2), "_ _", " ")
End Function

извините дилетанта
ЭТО МАКРОС?
спасибо