Но может закрасться пробел куда нибудь, в начале, в конце или в середине, возможно придется использовать ещё СЖРОБЕЛЫ(). Но наверное лучше их удалить еще одной ПОДСТАВИТЬ(). Файл-Пример очень бы помог понять как действовать.
Но может закрасться пробел куда нибудь, в начале, в конце или в середине, возможно придется использовать ещё СЖРОБЕЛЫ(). Но наверное лучше их удалить еще одной ПОДСТАВИТЬ(). Файл-Пример очень бы помог понять как действовать.gling
ЯД-41001506838083
Сообщение отредактировал gling - Пятница, 14.12.2018, 20:00
Большое спасибо, работает! Если использовать 1 вариант, то можно ли туда ещё добавить удаление пробелов (некоторые люди разделяют номер просто пробелами)?
Большое спасибо, работает! Если использовать 1 вариант, то можно ли туда ещё добавить удаление пробелов (некоторые люди разделяют номер просто пробелами)?Narahon
Narahon, Оформите в своем первом сообщении формулу тегами в режиме редактирования поста нужно выделить формулу и нажать кнопку fx на панели) И прочитайте Правила форума, там об этом говорится
gling,
Narahon, Оформите в своем первом сообщении формулу тегами в режиме редактирования поста нужно выделить формулу и нажать кнопку fx на панели) И прочитайте Правила форума, там об этом говорится
Narahon, Оформите в своем первом сообщении формулу тегами в режиме редактирования поста нужно выделить формулу и нажать кнопку fx на панели) И прочитайте Правила форума, там об этом говорится
Извиняюсь, в следующий раз буду внимательнее. А вот редактировать своё сообщения я не могу, нету этой кнопки
Narahon, Оформите в своем первом сообщении формулу тегами в режиме редактирования поста нужно выделить формулу и нажать кнопку fx на панели) И прочитайте Правила форума, там об этом говорится
Извиняюсь, в следующий раз буду внимательнее. А вот редактировать своё сообщения я не могу, нету этой кнопкиNarahon
Чтобы для каждого ненужного символа этого не делать, пользовательская функция [vba]
Код
Function Narahon(t) With CreateObject("VBScript.RegExp") .Pattern = "\D" .Global = True t = .Replace(t, "") .Pattern = "^7" Narahon = .Replace(t, 8) End With End Function
Чтобы для каждого ненужного символа этого не делать, пользовательская функция [vba]
Код
Function Narahon(t) With CreateObject("VBScript.RegExp") .Pattern = "\D" .Global = True t = .Replace(t, "") .Pattern = "^7" Narahon = .Replace(t, 8) End With End Function