Поиск
Автор: Hostyle. Всем Доброго, уважаемые форумчане! Помогите, пожалуйста, решить задачу.
Суть:
Есть 2 столбца, в первом встречаются повторяющиеся значения. Нужно удалить дубли, при этом сложить значения в ячейках этих же строк во втором столбце.
Пробовал с помощью словаря решить - не хватило знаний, как результат: дубли просто исчезли из списка совсем.
Пример приложил.
Sub stringSummary()
Dim wb As Workbook
Dim ws As Worksheet, wsT As Worksheet
Dim arr2, dict
Dim i%, elem As Variant, n&
Set wb = ...
Изменен: 24.04.2025
Читать сообщение на форуме или сайте.Автор: dimwits. Я только-только начал пробовать осваивать power query, очень сложно, конечно, когда технически не подкован. Но я стараюсь. Правда, не залазив в написание кода, конечно.
Ломаю долго голову, что можно придумать в ситуации:
Есть 4 таблицы с активами. Возьмем один из них для примера. Труба с одним и тем же названием, одним и тем же учетным номером, встречается два раза в списке активов. Дата постановки на баланс у одной 2017, у другой 2019. Вес одной 238,272 тонн, другой - 19,539 ...
Изменен: 20.04.2025
Читать сообщение на форуме или сайте.Автор: Сергей. Здравствуйте.
В процессе процедуры формирую Dictionary, в котором текстовым ключам соответствуют наборы данных. Эти наборы надо изменять, и наиболее логичным представляется динамический массив.
Примерный код, который я хотел бы видеть:Sub test()
Dim test_dict As Object
Set test_dict = CreateObject("Scripting.Dictionary")
Dim start_vals_arr() As Single
ReDim start_vals_arr(0)
start_vals_arr(0) = 15.87
test_dict.Add "Test_key", ...
Изменен: 30.03.2025
Читать сообщение на форуме или сайте.Автор: amarok36. Добрый день! Подскажите, как средствами VBA сделать следующие действия.
- Фильтровать уникальные значения по столбцу L и добавлять их в любой условный столбец на втором листе, к примеру в столбец A.
- Для каждого уникального значения из столбца L выбирать соответствующие ему значения из столбца K (строк может получиться несколько) и добавлять эти значения в столбец B на втором листе.
Для других столбцов нужно делать примерно то же самое, но я уже сориентируюсь по аналогии этих ...
Изменен: 11.03.2025
Читать сообщение на форуме или сайте.Автор: leospb. Доброго здоровья.
В наличии:
windows 10 x64 со всеми обновлениями на сегодня
MS Office 2013 x64 pro
Скачал с МС PowerQuery x64 и установил - без ошибок и замечаний.
Стартую Excel - вкладки PowerQuery нет.
Захожу в Надстройки - PQ в отключённых.
Включаю PQ, перезагружаю Excel - Excel ругается на "microsoft.mashup.client.excel" и предлагает отключить надстройку.
Если не отключать - Excel закрывается.
В чём проблема? Как вылечить?
PS
Переустановка PowerQuery, VC Redist не ...
Изменен: 03.03.2025
Читать сообщение на форуме или сайте.Автор: One Zero. Добрый день!
Помогите, пожалуйста, разобраться - в Power Query нет возможности включить "Профилирование столбцов на основе всего набора данных" в левом нижнем углу, как инструктирует сайт MS и большинство советов на просторах Интернета.
Также во вкладке Просмотр отсутствуют чек-боксы.
Во вложении:
Скриншот с сайта MS - инструкция
Скриншот из Power Query
Версия Office
Пример из интернета, где такая возможность есть.
Если кто-нибудь знает решение, подскажите, пожалуйста ...
Изменен: 12.02.2025
Читать сообщение на форуме или сайте.Автор: fashionjiv. Объединяю файлы из папки таким способом (прикрепил скриншоты), типовые файлы функция обрабатывает все хорошо, но столкнулся с тем что иногда у отдельных файлов нужно скипнуть до заголовков не 5 а 6 строк, в какую сторону погуглить, пока не пойму как логически это решается.
Изменен: 27.01.2025
Читать сообщение на форуме или сайте.Автор: Georgiy19. Добрый день!
Я понимаю, что вопрос примитивный, но я не могу для такой примитивной задачи найти простое решение.
В общем, исходные данные: несколько книг Excel, в каждой книге один лист, на листе одна умная таблица (которая Ctrl + T делается). Шапка у каждой таблицы одинаковая, разным является только содержимое.
Мне нужно, чтобы в отдельной книге при ее запуске появлялась одна умная таблица, которая складывается из нескольких таблиц, указанных выше.
Насколько я понял, это можно ...
Изменен: 17.12.2024
Читать сообщение на форуме или сайте.Автор: Kukr47. Нужно чтобы при открытии любой книги excel у меня раскрывались листы снизу, а точнее ползунок этот уменьшался. Нашел такой код и он рабочий, но как я понимаю не в надстройке...
я создал надстройку и прописал там вот так
Private Sub Workbook_Open()
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.TabRatio = 0.7
End Sub
он ругается на ActiveWindow потому что он пустой, вопрос, можно ли как-то осуществить то что мне нужно? мне нужно TabRatio =0.6, нужно для выгруженных из ...
Изменен: 17.12.2024
Читать сообщение на форуме или сайте.Автор: KrutojBep. Всем привет,
кто сталкивался с подобной проблемой - есть вопрос. Если я пытаюсь подключиться к сайту через PQ и вижу такую ошибку (во вложении) - это уже всё и ничего не поможет ? Сайт простой (зарубежный) с футбольной статистикой - https://fbref.com/en/comps/11/Serie-A-Stats. Правилами вроде бы не запрещено такое закинуть.
Раньше вытягивал данные от туда автоматически, сейчас приходится руками выделять каждую таблицу и кидать себе в папку. Как с помощью JS или VBA сделать ...
Изменен: 18.10.2024
Читать сообщение на форуме или сайте.Автор: huizz. Добрый вечер!
Необходима помощь опытных форумчан. Написал маленький код VBA (файл пример во вложении). Столкнулся с проблемой вывода корректных значений.
Данный код должен собирать информацию со всех таблиц и вставлять "друг под другом" на отдельном листе. Однако, на выходе я получаю задвоенный результат (строка копируется два раза). Буду рад любой помощи
Изменен: 16.10.2024
Читать сообщение на форуме или сайте.Автор: CodeAesthetics. Есть запрос вида: = Json.Document(Web.Contents("https://api-fns.ru/api/check?req=[INN]&key=[API_key]"))
Который выдает информацию в формате JSON с множеством вложенных записей.
В зависимости от ИНН в ответе могут быть разные колонки, поэтому нужно развертывание всего запроса динамически.
Попытался взять эту функцию за основу: https://gist.github.com/Mike-Honey/0a252edf66c3c486b69b Но ничего не вышло. На выходе получается та же самая таблица, ...
Изменен: 10.10.2024
Читать сообщение на форуме или сайте.Автор: Дорожный. Может кто-нибудь решил задачу всплывающих подсказок у кнопки с макросом. Если кнопки миниатюрны и на них невозможно разместить поясняющий текст, то пользователю проекта могла бы помочь всплывающая подсказка при наведении курсора на кнопку, как это есть даже в самом Excel в меню. Если, к примеру, использовать гиперссылку, которая создает подсказку у кнопки, то назначенный кнопке макрос слетает. Можно еще попытаться создавать примечания у ячеек где расположена кнопка, но и это не ...
Изменен: 04.10.2024
Читать сообщение на форуме или сайте.Автор: Alexexcel. У функции ВПР последнее значащее поле - "интервальный_просмотр", обычно мы пользуемся "0" - тогда ищется точное соответствие, если поставить "1", то неточное. Это очень удобно когда нужно определить к какому рангу или грейду относится то или иное число. Создается очень простая справочная таблица
граничное значение/ранг
0 / А
10 / Б
15 / В
23 / В
и так далее, до разумной бесконечности - это чтобы не советовали через "если" решать задачу ...
Изменен: 25.09.2024
Читать сообщение на форуме или сайте.Автор: Геофизик. Здравствуйте!
- создал запрос из папки на 20 файлов (в ней есть 5 подпапок).
- изменил разделением столбцов Folder Path, получил нужный мне столбец Folder Path.6
- объединил файлы и как в этом шаге мне добавить столбец Folder Path.6?
Изменен: 17.09.2024
Читать сообщение на форуме или сайте.Автор: Никита Митрофанов. Здравствуйте!
У меня такая проблема: нужно с помощью макроса сделать подтягивание значений из двух таблиц в третью по уникальным значениям в одном столбце (все остальные пустые). Значения из других таблиц могут быть в случайном порядке. Знаю, что есть ВПР() в функциях, но он не подойдет, потому что таблиц больше, да и это нужно делать будет много раз.
Тест - таблица в которую заливать
1 и 2 - таблицы со значениями
безымянный рисунок - примерно что должно быть перенесено ...
Изменен: 21.08.2024
Читать сообщение на форуме или сайте.Автор: anna_bella_valentina. Добрый день! Есть отчет на 3 листа, один из них сводный. На первом и втором листе сделаны гиперссылки на итоговую таблицу и зашит простой макрос на фильрацию:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveSheet.Range("ФП").AutoFilter 16, Target.TextToDisplay
End Sub
Но макрос отрабатывает криво. При переходе с гиперссылки всегда фильтрует по первому значению с листа, а не по тому значению с которого переходим.
Подскажите, ...
Изменен: 18.08.2024
Читать сообщение на форуме или сайте.Автор: Ivaroms. Добрый день!
Искал по Форуму, пробовал прописать самостоятельно, но как-то криво выходит...
У нас есть книга, в которой может быть сотни листов, на каждом листе таблица, таблицы имеют разное количество строк, но одинаковую структуру.
Нам необходимо прописать в столбце Q начиная с 9-ой строки на каждом листе формулу до конца таблицы( грубо говоря протянуть).
Помогите, пожалуйста, с написанием кода!
=IF(RC[-13]>0,IF(OR(AND(NOT(RC[-8]=0),RC[-8]'0'!R1C3),& ...
Изменен: 12.08.2024
Читать сообщение на форуме или сайте.Автор: PooHkrd. Доброго дня, всем.
Уважаемые, кто подскажет, имеется ли возможность обращаться к полям таблицы не по имени, а по номеру позиции.
Проблема в том, что в табличках, которые приходится подгружать каждый день новые имена полей (например даты), а умножать на цену нужно именно поле [03.12.2016] которое находится на 4 месте в примере? Как в запросе обратиться к полю по номеру столбца в таблице?
Привожу пример, как я это делаю сейчас через понижение/повышение заголовков, но ...
Изменен: 26.01.2022
Читать сообщение на форуме или сайте.Автор: PooHkrd. Добрый день.
Уважаемые, один мой товарищ по работе организовал у себя в макросе подключение к базе 1С при помощи кода:
Set conn = CreateObject("V83.COMConnector")
Set bd = conn.Connect("Srvr=""Zeus:1687"";Ref=""moto_sup""")
Set Запрос = bd.NewObject("Запрос")
Запрос.Текст = "Здесь текст консольного запроса к БД 1С"Хочу также тащить себе таблички в PQ. Это возможно вообще? Если да, то хотя бы ...
Изменен: 10.12.2021
Читать сообщение на форуме или сайте.Автор: PooHkrd. Всем доброго здравия.
Коллеги, есть такая задачка, сделал запрос в Power Query, который тащит данные из 20 разных файлов, крутит-вертит их и помещает в модель данных книги таблицу на 7 млн. строк. Далее из этой таблицы крутятся разные сводные и все хорошо, но не у всех, т.к. имеются в наличии сотрудники с Excel 2007 и сильно отдаленной перспективой обновления софта. Тем не менее работать нужно всем.
Есть идея загнать сформированную в модели данных таблицу в Access или любую ...
Изменен: 30.10.2021
Читать сообщение на форуме или сайте.Автор: kare. Здравствуйте , подскажите пожалуйста как подсчитать сумму 7 столбца в vba?
Dim s As Long
s = Cells(Rows.Count, 7).End(xlUp).Row + 1пытаюсь определить последнюю запуленною ячейку и добавить строчку для итога но дальше дело не идет(
Изменен: 21.12.2017
Читать сообщение на форуме или сайте.Автор: Dost1369. Добрый день, уважаемые форумчане!
Суть проблемы: Есть сводный перечень, в котором наименования (столбец C) принадлежат разным объектам (столбец B), необходимо сделать так, чтобы в Combobox1 для выбора выдавался перечень объектов (сейчас я это сделал при помощи AddItem), а в Combobox2 перечень наименований, соответсвующий выбранному объекту.
Для понимания работы желаемого - сделал табличку в фиолетовой рамке на листе "Выбор".
Для вызова формы - добавил ...
Изменен: 13.09.2017
Читать сообщение на форуме или сайте.Автор: Shima. Есть таблица в примере (лист "Исходник"). На самом деле содержит несколько тысяч строк. В ней нужно сделать Unpivot контактов и описания к ним. После этого построить сводную с возможностью сортировки по любому из параметров.
Основной контакт без описания, все остальные - контакт+описание. Бывает так, что в контакте пусто, но есть описание и в нем могут быть контакты (ничего страшного, это ошибки заполнявшего. В последующем я их вытащу). Не может быть так, что заполнен ...
Изменен: 10.09.2017
Читать сообщение на форуме или сайте.Автор: RazorBaze. Стандартная функция Excel "Заполнить" > "Выровнять" (она же в VBA: "Selection.Justify") работает только с первыми 255 символами в ячейке, как и множество других подлых функций (например, "СЧЁТЕСЛИ").
Возможно ли обойти это ограничение?
Возможно ли написать пользовательскую функцию?
Может есть вообще другой способ?
Задача: преобразовать текст в ячейке таким образом, чтобы рядом с ним создалось ...
Изменен: 09.09.2017
Читать сообщение на форуме или сайте.Автор: PooHkrd. Всем привет.
В рамках сбора данных приходится к 7-10 разнородных таблиц фактов джойнить пару столбцов из одного и того же большого справочника, PQ со своими "ленивыми вычислениями" каждый раз лезет за данными из этого справочника на (мееееедленный) сетевой жесткий диск, а хочется как-то ускорить процесс.
Вот здесь Андрей VG использовал функцию Table.Buffer для обращения к еще одному источнику в пределах одного запроса и размещения его в оперативной памяти. ...
Изменен: 23.08.2017
Читать сообщение на форуме или сайте.