Как добавить символ в каждую строку

[Camelot85]

Как добавить символ ;  после электронного адреса ?
Пример во вложении.
Адресов в одном файле очень много поэтому вручную не предлагать

[cheshiki1]

если данные в одном столбце то вариант макроса.

Код Выделить Развернуть

Sub vvv()
Dim i%
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 1) <> "" Then Cells(i, 1) = Cells(i, 1) & ";"
Next
End Sub

[Camelot85]

Извините пожалуйста. Можно подробнее как этим пользоваться и куда вставлять. Заранее спасибо

не нужно цитировать все подряд

[cheshiki1]

1. копируем код с сайта
2. находясь на листе с данными жмете alt+f11 (т.е. удерживая alt жмем f11)
3. в открывшееся окно вставляем код. сохраняем.
4. ставим курсор во внутрь кода и жмем F5 или переходим в окно экселя вкладка "Разработчик" - "Макросы" там находим макрос "vvv" выделяем его и жмем "выполнить".
почитайте для общего развития

[Camelot85]

НЕ нужно цитировать все!!!
Получилось с двумя символами вида @gmail.com;; , как убрать второй символ и оставить один ? Отменить действие нельзя..

[cheshiki1]

ctrl+H
найти ;;
заменить на ;
т.е. в некоторых строчках ; уже была? в примере таких строчек не было. или вы два раза макрос запустили:)

[vikttur]

Camelot85, два раза предупреждение об одном и том же. Реакции нет.
Значение слова "цитата" можете найти в Википедии.