Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Перенос слов содержащий символ @ - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос слов содержащий символ @ (Формулы/Formulas)
Перенос слов содержащий символ @
Евгений96 Дата: Среда, 06.03.2019, 08:41 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день. У меня довольно большая таблица с данными и текстом. Мне необходима из текста взять все электронные адреса (слова содержащие "@") Упорядочить их и убрать повторы если они будут. Подскажите пожалуйста как это можно сделать?
К сообщению приложен файл: 2392672.xlsx (11.8 Kb)


Сообщение отредактировал Евгений96 - Среда, 06.03.2019, 14:00
 
Ответить
СообщениеДобрый день. У меня довольно большая таблица с данными и текстом. Мне необходима из текста взять все электронные адреса (слова содержащие "@") Упорядочить их и убрать повторы если они будут. Подскажите пожалуйста как это можно сделать?
Автор - Евгений96
Дата добавления - 06.03.2019 в 08:41
китин Дата: Среда, 06.03.2019, 08:51 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Добрый день. можно макросом, можно формулами. файл помог бы в решении вашей проблемы

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеДобрый день. можно макросом, можно формулами. файл помог бы в решении вашей проблемы
Автор - китин
Дата добавления - 06.03.2019 в 08:51
китин Дата: Среда, 06.03.2019, 14:07 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Дык вам надо из столбца D вытащить только электронные адреса или не только их, а всю строку?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеДык вам надо из столбца D вытащить только электронные адреса или не только их, а всю строку?
Автор - китин
Дата добавления - 06.03.2019 в 14:07
китин Дата: Среда, 06.03.2019, 14:35 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
вот что написал макрорекордер
[vba]
Код
Sub Макрос1()
Dim tt_&, dd_&, ii_&
tt_ = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    Range("D1:D" & tt_).Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ii_ = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    ActiveSheet.Range("$A$1:$A$" & ii_).RemoveDuplicates Columns:=1, Header:=xlNo
    Columns("A:A").AutoFilter
    ActiveSheet.Range("$A$1:$A$" & ii_).AutoFilter Field:=1, Criteria1:="<>*@*", _
        Operator:=xlAnd
    dd_ = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    Rows("1:" & dd_).Delete Shift:=xlUp
End Sub
[/vba]

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениевот что написал макрорекордер
[vba]
Код
Sub Макрос1()
Dim tt_&, dd_&, ii_&
tt_ = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    Range("D1:D" & tt_).Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ii_ = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    ActiveSheet.Range("$A$1:$A$" & ii_).RemoveDuplicates Columns:=1, Header:=xlNo
    Columns("A:A").AutoFilter
    ActiveSheet.Range("$A$1:$A$" & ii_).AutoFilter Field:=1, Criteria1:="<>*@*", _
        Operator:=xlAnd
    dd_ = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    Rows("1:" & dd_).Delete Shift:=xlUp
End Sub
[/vba]
Автор - китин
Дата добавления - 06.03.2019 в 14:35
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос слов содержащий символ @ (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!