Доброе время сутокЭто заказ на универсальный макрос, который автоматически определяет кодировку.

Доброе время сутокОсмелюсь, предположить, что вместо 1 в столбце С нужно было бы выводить совпавшее значение, а может и список совпавших. Возможно это был просто тест на сообразительность

Доброе время сутокПривет, Алексей.
А чем он поможет, если сам адрес в ячейке - не её данное, которое берёт Power Query? Тут, видимо, тоже направление ковыряния, что и для [Power Query] Добываем иерархию (вложенность) строк из файла Excel, есть такая функция.

Увы, но это эквивалент
так что бы получить работающую строку, нужно добавить указание что брать из книги.

Доброе время сутокИ правильно делает. Не предусмотрели разработчики Excel метод PrintOut для Excel.Application, в отличии от Word.Application

Доброе время сутокВ первую очередь нужно читать правила. Ну, и здравствуйте написать на форуме только приветствуется

Доброе время сутокА чем помочь - у вас ни строчки кода.Так приведите ручной пример такого варианта заполнения и результата скрытия. А то в имени файла вы много букв а смогли написать, так почему бы не помочь хоть чем-нибудь тому, кто будет делать для вас макрос, предоставив ему пример для тестирования?

Доброе время суток.
Вариант на Microsoft Query. Файл для тестов сохранить в папку c:\path

Ну, всё тема взаимодействия Excel и Access плавно перешла в обсуждение железа, видеокодирования

offtop
Скорее старичок- это они правила не читают, считают, что прожитые годы дали знания обо всём. Они и справки, и статьи, и руководства по эксплуатации не читают

Доброе время сутокКонечно, он даже документирован Microsoft Range.CopyFromRecordset

Offtop

Доброе время сутокПереходить на централизованное хранилище в виде базы данных. Либо использовать Power BI - в платных версиях есть автоматическое управление обновлением. В бесплатной можно настроить через слияние промежуточных загрузок с ручным управлением.

Доброе время сутокПопробуйте через SUMX и RELATED

Стачала нужно думать над тем, что есть и может быть, а уж потом над тем, что лучше
Как в таком случае лучше?
1, 2, 3, 4, 5, 6
1, 2, 3, 4, 5, 11
1, 2, 3, 4, 11, 12
1, 2, 3, 11, 12, 13
1, 2, 11, 12, 13, 14
или
1, 2, 11, 12, 21, 22
1, 2, 31, 32, 41, 42
11, 12, 31, 32, 51, 52
21, 22, 41, 42, 51, 52

Доброе время сутокКто что считает. Код Алексея считает сколько есть чисел в строке с расстоянием в 1 с просмотром слева на право по строке  Хотя где то сбой на строке
{111, 112, 113, 117, 121, 122} находит 4, хотя их пять  Но, если переставить {122, 121, 117, 113, 112, 111}, то будет 0
А вам что нужно? Может попытаетесь объяснить... А то коллеги - кто в лес кто по дрова.

Доброе время сутокТак и сделал. Картинка переместилась. Что я сделал не так?

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

Доброе время суток.А какие ваши доказательства?
Зашёл в редактор VBA в Excel, через Tools/References прекрасно подключается библиотека Microsoft OneNote xx.x Object Library. Вот Pdf через распечатку не получилось поместить в OneNote - тут, увы. Так что изучайте.
Успехов.

Тогда вынужден вас огорчить. SQL движок Provider=Microsoft.ACE.OLEDB.12.0 работает только с нормализованными таблицами данных (впрочем, все движки SQL исходят из такой структуры данных). Поэтому никакой абсолютной адресации в рамках строк/столбцов рабочего листа его средствами вы не получите.

А какой смысл в этом номере строки - ну получили, а дальше то что?
Поставьте Python, например, и нужные библиотеки, да работайте.

Супер, спасибо! Добавил в закладки - будет куда ТСов посылать

Какой этой? Чем отличается этой от выбранной? Если вы про
, то добавьте переменную счётчик числа просмотренных строк - будете знать какая строка. Но вот вопрос, а если вы задали SQL запрос
то какой будет смысл для вас в номере строки? Нет в SQL понятий номера строки, есть стоящий за каждой строкой смысл - первичный ключ.

Доброе время сутокЧто это. Детализируйте.

Светлый, а на таком наборе входных данных - формульное решение возможно?

Светлый, круто! Спасибо. Иногда работа формулистов завораживает

Добрый вечер, Владимир.
А чем это может помочь после того, как exe открыл и распаролил книгу? Пользователь получает беззащитную книгу  Ну а дальше требуются не самые обширные знания объектной модели Excel VBA.

Тогда будет не частный случай оптимизационных задач, условно называемых задачей о рюкзаке.  Надеюсь Михаил MCH меня поправит, если не прав. Но, учитывая, что такой класс задач NP полный, то обычно не мучаются, а пользуются жадным алгоритмом - он не оптимальный, но зато самый быстрый. В этом случае вам нужно уходить от функций (путь даже и udf), а переходить к макросам. Суть алгоритма проста:
1. упорядочиваем данные не по возрастанию
2. подбираем первое по порядку, которое можно разместить в рюкзаке, исключаем найденное.
3. для оставшегося места подбираем аналогично 2.
4. если уже ничего не лезет - считаем рюкзак заполненным
5. переходим к новому рюкзаку того же размера и в 2
6. 2-5 выполняем пока не кончатся предметы.

Не знание правил - не избавляет от ответственности.  А Николай прав - защита так себе.