Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)
-   -   Excel автозамена символов в столбце, как? Научите плиз. (http://forum.oszone.net/showthread.php?t=339256)

Kirill_S 16-02-2019 10:05 2858215

Excel автозамена символов в столбце, как? Научите плиз.
 
Дано столбец с номерами телефонов
столбец А:

1 (2345) 67890
(0987)654321
....

Надо получить
столбец B:

1234567890
0987654321
...

Убрать все скобки и пробелы (могут быть двойные).
В "Блокноте" автозамена все за 0.5 сек сделала, а в excel мне не хватает "вару" в голове формулу написать.
Не знаю какие аргументы использовать.
Научите плииз.
Оффис 2013 и 2016 используется.

okshef 16-02-2019 14:42 2858281

Логика для формулы такая: если текст в ячейке A1, то для поиска и замены одного пробела формула такая (как вариант)
Код:

=ЗАМЕНИТЬ(A1;НАЙТИ(" ";A1);1;"")
Соответственно, поиск второго пробела уже в новой ячейке.
Поиск и замена скобок по той же логике.
Но лучше эту задачу решить макросом или Ctrl+H

Код:

Sub replace_phone_numbers()
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="(", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=")", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub


Iska 16-02-2019 14:58 2858290

Kirill_S, попробуйте такую формулу:
Код:

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

Kirill_S 17-02-2019 09:44 2858378

Спасибо. Буду пробовать.


Время: 22:46.

Время: 22:46.
© OSzone.net 2001-