Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как удалить пробел в дробном числе
 
#1
15.02.2020 02:06:41
Добрый день!

Как удалить пробелы в дробных числах (после запятой - 1, 5л | 10, 5 | 0, 55л), но сохранить пробелы после запятой в перечислениях свойств товара (D=95, H=215мм | D=10, 5, H=22см | D=95, H=92мм)? Всё в одной ячейке.

Банка; стекло; 1, 5л; D=95, H=215мм; прозр.
Банка; стекло; 2л; D=10, 5, H=22см; прозр.
Банка; стекло; 0, 55л; D=95, H=92мм; прозр.

Заменой естественно все пробелы удаляются. (
 
 
 
#2
15.02.2020 02:21:44
Код
Function change$(t$)
    With CreateObject("VBScript.RegExp")
        .Pattern = "(\d+\,)(\s)(\d+)"
        change = .Replace(t, "$1$3")
    End With
End Function
Изменено: buchlotnik - 15.02.2020 23:25:02
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#3
15.02.2020 02:59:57
Если только буква H:
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;", H";",,H");", ";",");",,";", ")
 
 
 
#4
15.02.2020 15:04:02
buchlotnik, спасибо! Но у меня при вставке функции появляется ошибка: function call on left-hand side of assignment must.

vikttur, спасибо! С буквой Н работает отлично. К сожалению, в разных товарах не только буква Н. К тому же эта комбинация (запятая, пробел, буква) в некоторых ячейках встречается дважды или трижды, например:

Контейнер; 2, 05л; H=95, L=185, B=185мм; белый, прозр.

Увидел только сейчас. Приношу извинения за неточность формулировки вопроса.
 
 
 
#5
15.02.2020 15:44:05
Массивно
=REPLACE(A1;MIN(IFERROR(FIND(", "&ROW($1:$10)-1;A1)+1;1=0));1;)
Если конечно одно дробно, а не несколько.
Изменено: БМВ - 15.02.2020 16:02:32
По вопросам из тем форума, личку не читаю.
 
 
 
#6
15.02.2020 15:58:36
Forestwarden,
В коде от buchlotnik кавычки не той системы
Код
change = .Replace(t, "$1$3")
 
 
 
#7
15.02.2020 23:18:27
Kuzmich,спасибо! Зашло! )
 
 
 
#8
15.02.2020 23:19:04
БМВ, Спасибо!
 
 
 
#9
16.02.2020 00:59:08
Цитата
Kuzmich написал:
кавычки не той системы
паттерны тоже  ;)  , что-то я вчера погорячился, так оно попроще будет:
Код
Function change2$(t$)
    With CreateObject("VBScript.RegExp")
        .Pattern = ",\s(?=\d)"
        change2 = .Replace(t, ",")
    End With
End Function
Изменено: buchlotnik - 16.02.2020 01:06:47
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
Страницы: 1
Наверх