Преобразование номера из формата +7 (XXX) XXX-XX-XX в формат +7XXXXXXXXXX

djserg-minyar Пользователь Сообщений: 17 Регистрация: 01.01.1970	#1 18.09.2012 07:13:03 Люди добрые подскажите как можно преобразовать данные в Ексель из одного формата в другой по виду что указан в название темы. Есть таблица на 2 тыс. записей, руками делать ее очень долго.

djserg-minyar Пользователь Сообщений: 17 Регистрация: 01.01.1970	#2 18.09.2012 07:18:52 пример таблицы Прикрепленные файлы post_363957.xlsx (9.2 КБ)

ЛМВ Пользователь Сообщений: 2902 Регистрация: 17.01.2013	#3 18.09.2012 07:42:47 Формат тут ни при чем, похоже. Вам просто нужно удалить пробелы, "-" и скобки. Команда "Заменить" (Ctrl+H) - чем не устраивает? Вся работа займет 1 минуту. Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/

ЛМВ

Пользователь

Сообщений: 2902 Регистрация: 17.01.2013

18.09.2012 08:04:54

Вот - не самый короткий код (я не мастер, я - типа любитель :) )

Function ЗАМЕНИТЬМН(текст As String)
Dim newtxt As String
Dim simb
For i = 1 To Len(текст)
simb = Mid(текст, i, 1)
If IsNumeric(simb) Then
newtxt = newtxt & simb
End If
Next
ЗАМЕНИТЬМН = "+" & newtxt
End Function

Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#5 18.09.2012 08:21:17 Ctrl+H записать макрорекордером. Я сам - дурнее всякого примера! ...

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#6 18.09.2012 08:44:28 Удаляем ненужное: =ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(B1;")";);"(";);"-";);" ";)

Читают тему