Sergey В.

Возможно для Вас будет решением - запись результата в формате csv. Файлы этого формата по умолчанию открываются через Excel.

Судя по всему, Вы используете ADODB подключение?
Попробуйте не писать сразу сложный запрос, а сделать простой, а потом его пошагово усложнять. Только так, при отсутствии опыта можно найти ошибки в самом запросе.
На мой взгляд, ошибки у Вас могут быть в следующих местах:
- "COUNT (Номер продавца) " не должно быть после FROM, т.к. это не таблица;
- UserForm2.TextBox1.Text может содержать символы, которые не являются числовым типом, для сравнения с COUNT.

PS при отладке запроса, пользуйтесь CopyFromRecordset для отображения результатов и корректировки запросов.
PPS помните, что ADODB в Excel имеет ряд неочевидных и неприятных особенностей:
- возвращает не более 255 символов из запроса к текстовому полю;
- тип значений поля определяется исходя из содержимого первых 10 (вроде) строк.

Проблема в том, что формула возвращает Вам значение ячейки, а не ссылку (относительно которой можно двигаться). Поэтому могу предложить создать ещё одну строку со сдвигом в одну ячейку и брать значение из нее.

Первый вариант - преобразовать данные перед вставкой. Добавить перед каждым значением одинарную кавычку.
Второй вариант - вставить данные, преобразовать и вставить ещё раз.

Только макросом:
- пройтись по ячейкам нужного столбца;
- извлечь ссылку;
- скачать картинку;
- вставить в ячейку.
Специалист сделает макрос за 2-3 часа.

Встроенного в Excel функционала к сожалению нет.

Два варианта:
1. Построчно вникать в функционал js кода и писать код на VBA с аналогичным функционалом;
2. Воспользоваться Office, который понимает js. Это OpenOffice. Вроде как в MS Office 365 ввели поддержку js.

Можно создать презентацию с поддержкой макросов. В модуль вставляете код:

Public Sub OpenExcelBook()
Dim xlApp As Object, xlBook As Object

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("C:\1\Book1.xls") ' Открытие книги Excel

xlBook.Sheets(2).Activate                      ' Активация второго листа книги
xlBook.Sheets(2).Range("A10").Select    ' Переход к ячейке A10

Set xlBook = Nothing: Set xlApp = Nothing
End Sub

Выбираете на презентации нужную надпись, далее: Вставка - Действие - По щелчку мыши - Действие. И выбираете макрос для выполнения "OpenExcelBook".

Надо сначала понять - какие есть закономерности. Навскидку вижу:
1. Сначала идёт кириллический текст описания, потом PartNumber;
2. PartNumber идёт без пробелов;
3. В PartNumber всегда заглавные латинские буквы и цифры (со слешем или дефисом);
4. Длинна PartNumber больше 3х символов;
Уже по этим признакам можно создать несложную функцию, выделяющую из полного названия PartNumber.
Дальше потребуется ручной анализ результатов.
Если есть ресурс для проверки существования полученного PartNumber, то задача анализа значительно упрощается.

Частая ошибка при использовании ВПР - разный формат данных. Например в одной таблице число хранится как число, а в другой таблице число хранится как текст.

Это не числа )
Согласно ваших региональных настроек на ПК, разделителем дробной и целой части ЧИСЛА является запятая.
В вашем примере указана точка.
Поэтому Excel не признаёт значение ячейка как число и понимает его как строку. Отсюда и сортировка по алфавиту.
Варианты решения:
1. Заменить точки на запятые;
2. Сменить региональные настройки (не рекомендуется).

Если отправить на сайт Яндекса GET запрос вида:
https://yandex.ru/maps/?text=moskva%2C%20Turgeneva...
(адрес: Moskva, Turgeneva, 15)

то произойдёт редирект на адрес, содержащий координаты:
https://yandex.ru/maps/213/moscow/?ll=37.595820%2C...

откуда их можно выделить и сохранить.
Осталось разобраться - как работать в Excel с GET запросами.

Макрос ниже:

Sub AutoFillRange()
    ActiveCell.AutoFill Destination:=Range(ActiveCell, Cells(ActiveCell.Row + 187, ActiveCell.Column)), Type:=xlFillDefault
End Sub

растягивает формулу на (199 - 12) ячеек вниз.
Для использования нужно поставить курсор на ячейку и запустить макрос на выполнение.
В дальнейшем можно установить и запускать макрос комбинацией клавиш.
Также можно автоматизировать растягивание формулы во всей колонке таблицы одной кнопкой, но предварительно нужно смотреть структуру таблицы.

Обычно нет необходимости пользователю выводить для отображения сразу весь набор данных (1кк записей). Если Вам нужно скопировать и обработать данные - скопируйте всё сразу и обрабатывайте частями.

Разделитель в данном случае - пробел.
Потребуются две операции:
1. Преобразовать строку в массив.
2. Вставить массив в лист.

Пишу без IDE, если что подкорректируйте:

Dim sSource As String
Dim oArr As Variant

oArr = Split(sSource, " ")
Range(Cells(1, 1), Cells(1, Ubound(oArr)).Value = oArr

Ваш вариант - портировать все в Гугл таблицы. Только так Вы сможете редактировать документ без возникновении коллизий.
Ну или шагать дальше и делать приложения для работы с единой базой данных (с блокировками и тд)

Т.к. вывод результата у Вас довольно специфический - лучше всего реализовать задачу с помощью самописной формулы в VBA. Час-два для специалиста на написание функции.

То, что Вам нужно называется "автозамена".
Посмотрите середину этой статьи: https://advanceduser.ru/microsoft-excel/avtozamena...

"И самое интересное – «Заменять при вводе». Именно эта команда активирует механизм автозамены и позволяет «на лету» устранять орфографические ошибки, вставлять специальные символы (например, «копирайт») и прочее. Здесь можно указать последовательность символов, которые затем программа должна будет преобразовать во что-то иное."

Если у Вас есть VBA код для добавления изображения в аннотацию, то нетрудно переделать этот код, чтобы изображение отображалось на всплывающей форме. После отображения, форма закрывается и изображение не сохраняется.