Страницы: 1
RSS
Вставить пробелы между символами, Как вставить пробелы между символами в ячейке
 
Есть ячейка в текстовом формате, в ней некий конечный набор символов без пробелов. Надо получить в соседней ячейке текст чтобы между всеми символами вставить по одному пробелу. Это только макросом можно или как-то формулой реализовать?
Т.е. есть в А1 "ABC7", а в В1 получить "А В С 7".
Если автоматизировать бардак, то получится автоматизированный бардак.
 
Просмотрите последние 2-3 страницы. Была тема с похожей задачей.
 
Так вот оттуда и взялась тема. Там, насколько я понял это было решено с помощью UDF, а меня формульное решение интересует.
Если автоматизировать бардак, то получится автоматизированный бардак.
 
Можно и без макроса.
Формулу надо будет "протянуть" под возможную длину строки.
 
Изначальная ячейка (столбец ячеек) может быть разной длины, поэтому к результирующей ячейке можно применить СЖПРОБЕЛЫ().
Если автоматизировать бардак, то получится автоматизированный бардак.
 
Тема-то одна. Там и можно было продолжать
 
Так?

Код
Function InsertSpaces(cell)
    With CreateObject("VBScript.RegExp")
        .Global = True: .IgnoreCase = True: .Pattern = "(.)"
        InsertSpaces = Trim$(.Replace(cell, "$1 "))
    End With
End Function
 
There is no knowledge that is not power
 
Найдите ссылку и поместите в теме. Так будет правильнее.
Страницы: 1
Наверх