Здравствуйте,
Мне кажется, функция извлечения е-маил из ячейки обрезает е-маил до дефиса, включая дефис, если в е-маил есть.
Так же не должно работать или я неправильно использую функцию?

Всем привет, возникла необходимость из данных, загруженных в  Power Query, удалить все, что встречается по 1 разу, оставив остальное - то есть то, что встречается 2 и более раз. Сверка идет сразу по двум столбцам, Имя и Бренд.
http://prntscr.com/10wbg18

Вот если нужен противоположный результат в  Power Query есть инструмент Удалить повторения, останутся уникальные. А вот, как оставить, только повторы. Что мне нужно, ниже пример.
-------------
Например,
Сергей Власов Hyundai
Сергей Власов Saab

это уже 2 совпадения и эти данные нужно оставить.

А вот
Александр Волков Porsche
Александр Волков Porsche
Александр Волков Porsche

это все считается 1 значением, и подобное нужно отсечь.

Я во вложенном примере сделал на листе Сверка просто в лоб сводную, и выделил условным форматированием то, что должно выгрузиться в Power Query.
Весь массив данных именно сразу, как в примере в сводную закинуть не могу, эксель просто не справляется с обработкой, много данных. А вот если их прогнать через Power Query, то очень даже шустро сводная строится.  

Добрый день всем. Регулярно смотрю ролики Николая Павлова и стал подумывать над переходом на Excel 365,т.к., там постоянно обновления и есть новые удобные функции, которых нет в обычных офисных Excel (я сейчас на 2016)
Кто-то в курсе, как реализовано в Excel 365, это вообще скачиваемый пакет программ или это облачное приложение, в котором можно работать только при наличии интернета, типа гугл-таблиц?

И как приобрести, на сайте Майкрософт нашел товары, это же они?

Microsoft 365 Family

Microsoft 365 Personal

Office Home & Student 2019

Являюсь счастливым обладателем данной настройки) Есть предложение, не знаю, может уже есть такая фича, но я не нашел.
Суть в том, чтобы копировать данные (ячейки, строки), когда они отфильтрованы, копировать только то что, отфильтровано, не захватывая то, что скрыто.
На просторах интернет нашел макрос и использую его параллельно в виде настройки.
Комбинации клавиш Ctrl+Q и Ctrl+W  позволяют копировать-вставить.

Если бы, было что-то подобное в PLEX, было бы прекрасно. Хотя, повторюсь, может это уже и есть, просто я не нашел.

П.С. как оказалось, нашел я даже на нашем форуме)) спасибо еще раз автору, он реально облегчил мне жизнь.
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=77880&am...

Скрытый текст

'--------------------------------------------------------------------------------------- ' Module    : mMyCopyPast ' DateTime  : 30.04.2010 10:32 ' Author    : The_Prist(Дмитрий) ' Purpose   : http://excel-vba.ru/index.php?file=Tips_Macro_PasteInVisible '--------------------------------------------------------------------------------------- Option Explicit Dim rCopyRange As Range 'Этим макросом копируем данные Sub My_Copy()    If Selection.Count > 1 Then        Set rCopyRange = Selection.SpecialCells(xlVisible)    Else: Set rCopyRange = ActiveCell    End If End Sub 'Этим макросом вставляем данные, начиная с выделенной ячейки Sub My_Paste()    If rCopyRange Is Nothing Then Exit Sub    Dim rCell As Range, li As Long, iCalculation As Integer    Dim lr As Long, lc As Long, lTmpCol As Long    Dim rResCell As Range, asAddrRng, lSp As Long    Application.ScreenUpdating = False    iCalculation = Application.Calculation: Application.Calculation = -4135    'получаем отсортированный нужным образом список адресов ячеек    asAddrRng = NoDups(rCopyRange)    'получаем первую ячейку для вставки    Set rResCell = ActiveCell    'цикл по ячейкам для копирования    For lSp = LBound(asAddrRng) To UBound(asAddrRng)        For Each rCell In rCopyRange.Parent.Range(asAddrRng(lSp))            If lTmpCol = 0 Then lTmpCol = rCell.Column            If lTmpCol < rCell.Column Then                Do                    lc = lc + 1                Loop While rResCell.Offset(lr, lc).EntireColumn.Hidden = True                lr = 0: lTmpCol = rCell.Column            End If            Do                If rResCell.Offset(lr, lc).EntireColumn.Hidden = False And _                   rResCell.Offset(lr, lc).EntireRow.Hidden = False Then                    rResCell.Offset(lr, lc) = rCell.Value '                    rResCell.Offset(lr, lc) = rCell.Value                End If                lr = lr + 1            Loop While rResCell.Offset(lr, lc).EntireRow.Hidden = True        Next rCell    Next lSp    Application.ScreenUpdating = True: Application.Calculation = iCalculation End Sub 'получение отсортированных адресов диапазона Function NoDups(rRng As Range)    Dim avArr(), rCell As Range, sAddr As String, li As Long, lr As Long    Dim lRow As Long, lCol As Long, objColl As New Collection    On Error Resume Next    'сортируем по строкам    With New Collection        For Each rCell In rRng.Cells            lRow = rCell.Row            sAddr = Trim(rCell.Address(0, 0))            If Len(sAddr) > 0 Then                If IsEmpty(.Item(sAddr)) Then                    For li = 1 To .Count                        If lRow < Range(.Item(li)).Row Then Exit For                    Next                    If li > .Count Then .Add sAddr, sAddr Else .Add sAddr, sAddr, Before:=li                End If            End If        Next        'сортируем по столбцам        For lr = 1 To .Count            lCol = Range(.Item(lr)).Column            sAddr = Range(.Item(lr)).Address(0, 0)            If Len(sAddr) > 0 Then                If IsEmpty(objColl.Item(sAddr)) Then                    For li = 1 To objColl.Count                        If lCol < Range(objColl.Item(li)).Column Then Exit For                    Next                    If li > objColl.Count Then                        objColl.Add sAddr, sAddr                    Else                        objColl.Add sAddr, sAddr, Before:=li                    End If                End If            End If        Next        ReDim avArr(1 To objColl.Count)        For li = 1 To objColl.Count            avArr(li) = objColl.Item(li)        Next    End With    NoDups = avArr() End Function

Добрый день, хотел уточнить по надстройке. Разрешенное количество активаций 5. Вот у меня почему-то пишется 4 активации использованных, хотя ставил на 3 устройствах. Может, после переустановки Windows и MS Office надстройка продолжает считать активации, не "забывает", хотя старый офис канул в лету.

Например, на Evernote тоже есть привязка к бесплатному использованию программы, 2 устройства. Но если я переезжаю в другой город, я в настройках указываю старый компьютер неактивным, и могу провести активацию на другом компьютере.
На PLEX работает не так, активация остается пожизненно? То есть у меня ноутбук умер, я его утилизировал, но активации все равно считаются. То есть со временем нужно будет приобретать новую надстройку?

Добрый день.
В PLEX есть замечательная возможность перевода кириллицы в латиницу. Но есть ли обратный перевод? Например, у меня названия российских городов латинскими буквами, можно ли быстро в кириллицу перевести?

Kaliningrad

Moscow

Stavropol

Krasnodar

Всем привет,
Ребята, подскажите, есть ли нормальный гайд, как пользоваться функцией "левый ВПР" из библиотеки формул? Самой функцией ВПР из эксель я владею, но тут классика жанра, нужно впр-ить, когда столбец поиска не слева, и задача данной функции помочь в этом вопросе, так понимаю.  

Добрый день,

Нужно решить такую задачу, чтобы из списка в эксель как-то на диске создавались файлы *.docx с названиями из списка.
Например, в эксель список
Москва
Пенза
Псков
Воронеж

нужно, чтобы на диске создались 4 пустых  *.docx с названиями этих городов.

В архивной теме нашел похожий вопрос, но там макрос создает в папке на диске файлы *.xls с названиями, которые были указаны в эксель.
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=6874

Такое можно решить средствами эксель?

Николай, спасибо за очередное обновление, каждый раз что-то новенькое).
Однако, как мне кажется, обнаружил некоторую неточность. Вот почему-то кажется, что действия делают наоборот - в первом случае написано, что слева направо, а по факт размещает сверху вниз. Во втором, что сверху вниз, а по факту слева направо.
Хотя возможно я такой непонятливый, но картинки слева кажется также указывают, как я думаю)

П.С. хотя по видимости так это и было задумано, методом втыка кажется разобрался.  

Отличная штука Менеджер листов, но не позволяет защитить листы так, чтобы пользователь мог в защищенных листах добавлять строки или столбцы (стандартными средствами эксель можно такое сделать).
Можно добавить в Менеджер пару опций?

Привет всем.
Посоветуйте, как можно собрать в одну настройку все полезные макросы, я в этом не силен. У меня сейчас подключено много надстроек, которые грузятся по отдельности, а хотелось бы одну, в которую были подключены все мои макросы (например, как в PLEX), сделать тоже панельку в виде кнопочек и т.д.

Привет всем.
У меня полная версия PLEX, Excel 2013.
При попытке воспользоваться удалением скрытых фильтром строк выбрасывает окно, хотя строки удаляет. При нажатии на End окно исчезает, и вроде все работает нормально, но есть легкое предчувствие какого-то бага.

Привет всем.
Посоветуйте, пожалуйста, есть ли возможность в Excel или надстройке PLEX копирования данных из отфильрованного диапазона из столбца В в столбец А?  В столбце В на картинке на данный момент отфильтрованы только ячейки с данными, пустые ячейки скрыты.
Я пока решаю это так: снимаю фильтр, потом копирую весь столбец В через специальную вставку с галкой "Пропускать пустые ячейки", а вот есть ли возможность копирования, НЕ снимая фильтр?