Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

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

Автор Camelot85, 26.01.2015, 14:30

« назад - далее »

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

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

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

cheshiki1

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

Camelot85

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

cheshiki1

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

vikttur

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