Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Поиск одинаковых мейлов в большом списке
 
#1
19.12.2019 15:02:34
Доброго всем дня!

Такая проблема:
- Есть список мейл адресов (более 10 000)
- Среди них есть одинаковые ящики у разных людей (например: petr221@mail.ru, dima221@yandex.ru, lexa322@mail.ru и так далее)
- Необходимо сначала посчитать сколько всего ящиков разных площадок (на нашем примере @mail.ru - 2, @yandex.ru - 1)
- И необходимо потом процентное соотношение от общего числа мейлов в списке

Файлик прилагаю для примера.
Заранее большое спасибо!
 
 
 
#2
19.12.2019 15:16:15
Vakhtang0770, с дополнительным столбцом и сводной  так?
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
19.12.2019 15:16:22
с доп столбцами
Лень двигатель прогресса, доказано!!!
 
 
 
#4
19.12.2019 15:23:56
Текст по столбцам с разделителем @ и сводная.
По вопросам из тем форума, личку не читаю.
 
 
 
#5
19.12.2019 15:25:27
БМВ,
Цитата
БМВ написал:
Текст по столбцам с разделителем
хорошая идея) а то все формулы формулы да формулы с PQ и макросами)
Изменено: Mershik - 19.12.2019 15:25:49
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#6
19.12.2019 15:29:54
Цитата
Сергей написал:
с доп столбцами
Такой вид по итогу должен получиться
Изменено: Vakhtang0770 - 19.12.2019 15:30:17
 
 
 
#7
19.12.2019 15:32:54
Цитата
Vakhtang0770 написал:
Такой вид по итогу должен получиться
Цитата
БМВ написал:
Текст по столбцам с разделителем @ и сводная.
По вопросам из тем форума, личку не читаю.
 
 
 
#8
19.12.2019 15:33:45
Цитата
БМВ написал:
БМВ  написал:Текст по столбцам с разделителем @ и сводная.
Цитата
БМВ написал:
БМВ  написал:Текст по столбцам с разделителем @ и сводная.
Текст разделил в легкую, а про сводную не подскажете в двух словах? Извините за такие банальные вопросы
 
 
 
#9
19.12.2019 15:34:10
Vakhtang0770, вы читаете с конца ?
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#10
19.12.2019 15:35:47
Цитата
Mershik написал:
Vakhtang0770 , вы читаете с конца ?
Нет, все с самого начала
 
 
 
#11
19.12.2019 15:36:08
Цитата
Vakhtang0770 написал:
про сводную не подскажете в двух словах?
Сам не умею, но научить - могу!
ПРИЁМЫ / Сводные таблицы
 
 
 
#12
19.12.2019 15:41:47
только второй столбец назовите, домен или ….
Изменено: БМВ - 19.12.2019 15:42:51
По вопросам из тем форума, личку не читаю.
 
 
 
#13
19.12.2019 15:46:46
мой пост #2 видимо  НЕВИДИМ 8)  :D  
Изменено: Mershik - 19.12.2019 15:46:56
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#14
19.12.2019 15:48:51
Off
Цитата
Mershik написал:
мой пост #2 видимо  НЕВИДИМ    
кто сдесь?  :D
По вопросам из тем форума, личку не читаю.
 
 
 
#15
19.12.2019 15:49:26
=ЕСЛИОШИБКА(ИНДЕКС(ПСТР($A$2:$A$27;ПОИСК("@";$A$2:$A$27)+1;50);НАИМЕНЬШИЙ(ЕСЛИ(ЕПУСТО(ПСТР($A$2:$A$27;ПОИСК("@";$A$2:$A$27)+1;50))=ЛОЖЬ; ЕСЛИ(ПОИСКПОЗ(ПСТР($A$2:$A$27;ПОИСК("@";$A$2:$A$27)+1;50);ПСТР($A$2:$A$27;ПОИСК("@";$A$2:$A$27)+1;50);0)=СТРОКА($1:$26);ПОИСКПОЗ(ПСТР($A$2:$A$27;ПОИСК("@";$A$2:$A$27)+1;50);ПСТР($A$2:$A$27;ПОИСК("@";$A$2:$A$27)+1;50);
0);"");"");СТРОКА()-1);1);"")

Формула массива, которая формирует список уникальных доменов (без доп столбцов), а дальше решение уже было. Как работает сам не знаю. Как отрезать домен украл у Сергей, а извлечение списка уникальных значений позаимствовал тут в комментарии Sam D.  
Я не волшебник, я только учусь.
 
 
 
#16
19.12.2019 15:58:04
Макросом
Код
Sub test()
Dim dicObj As Object
Dim i&
Set dicObj = CreateObject("scripting.dictionary")
  For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    dicObj.Item(CStr(Split(Cells(i, "a"), "@")(1))) = dicObj.Item(CStr(Split(Cells(i, "a"), "@")(1))) + 1
  Next i
   Range("B2").Resize(dicObj.Count, 2) = Application.Transpose(Array(dicObj.keys, dicObj.Items))
  For i = 2 To Cells(Rows.Count, "C").End(xlUp).Row
    Cells(i, "D") = Cells(i, "C") / WorksheetFunction.Sum(Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row))
    Cells(i, "D").NumberFormat = "0.00%"
  Next
End Sub
 
 
 
#17
19.12.2019 16:16:31
.
 
 
 
Страницы: 1
Наверх