Удаление пробелов между цифрами с сохранением 0 в начале

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Удаление пробелов между цифрами с сохранением 0 в начале (Формулы/Formulas)

Влад777

Дата: Четверг, 28.09.2017, 16:02 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 61

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Добрый день!

Есть много ячеек типа 0101 90 000 0. Необходимо удалить пробелы внутри данной цифры, но чтобы 0 вначале цифры не исчезал. Пробовал поиском и заменой - пробелы удаляет, но и 0 исчезает. Может кто-нить помочь?

Ответить

_Boroda_

Дата: Четверг, 28.09.2017, 16:05 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16711

Репутация: 6502 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
В соседнюю ячейку и протянуть вниз
Если нужно - потом скопировать протянутое и вставить через спецвставку в нужное место.

Код

=ПОДСТАВИТЬ(A1;" ";)

Если нет, то кладите файл-пример

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Влад777

Дата: Четверг, 28.09.2017, 16:07 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 61

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Да! Все работает. Огромное спасибо!

Ответить

buchlotnik

Дата: Четверг, 28.09.2017, 16:10 | Сообщение № 4

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

UDF: [vba]

Код

Function rep(t$, p$, r$, Optional g = True, Optional i = True)
    Application.Volatile
    With CreateObject("VBScript.RegExp")
        .Global = g
        .IgnoreCase = i
        .Pattern = p
        rep = .Replace(t, r)
    End With
End Function

[/vba]

К сообщению приложен файл: 6931023.xlsm (14.0 Kb)

Ответить

Удаление пробелов между цифрами с сохранением 0 в начале (Формулы/Formulas)

Страница 1 из 1
1