VBA Excel. Ячейки (обращение, запись, чтение, очистка)

Это продолжение вчерашнего получается. Есть у меня Книга Excel, под названием Прайс (в процессе создания). И есть столбец с наименованием товара. В этом столбце попадаются такие:
Газоанализатор HORIBA APSA-370(SO2)
Газоанализатор HORIBA APNA-370(NO,NO2,NOx)
Газоанализатор HORIBA APSA-370(H2S)
ну и тому подобное. Столбец там не один, но именно к этому вопрос
Проблема в следующем:
В другую книгу Excel я выдергиваю данные из книги Прайс при помощи ВПР следующим образом:
В ячейку (предположим С5) я ввожу искомое значение. В другой ячейке создаю ВПР которое по совпадению в книге Прайс с написанным значением в С5 выдергивает нужный мне параметр.
Но приходится писать полное название в С5 — Газоанализатор HORIBA APSA-370(H2S). Позиции отличаются в написании только в конце. Пробовал выпадающий список. Но он не работает с закрытыми книгами.
Можно ли каким либо образом настроить ВПР так, чтобы поиск велся не с первых символов введенных в ячейки Книги Прайс где ВПР ищет совпадения, а по всей ячейке в сочетании символов.
Например я в ячейке С5 начинаю вводить HOR а мне предлагался бы выбрать из нескольких ячеек, где встречается словосочетание HOR. Имеется в виду HORIBA. Или же только один вариант — создавать все в одной книге но на разных листах и с выпадающим списком?

Спасибо за совет

Привет, Бурхан!
Заполните буквами алфавита первый столбец, начиная с первой ячейки. Тогда номер строки будет соответствовать порядковому номеру буквы в алфавите. Найти букву и ее порядковый номер поможет метод Find:

Добрый день, Андрей!
Реализовать такую задачу в VBA можно, но простого решения нет.
В первую очередь надо отсортировать данные по наименованиям городов и вручную исправить в наименованиях городов ошибки, если они есть.
Далее код VBA должен просматривать строки по очереди, каждый новый город записывать в первую ячейку новой строки на новом листе, а в следующие ячейки этой строки записывать данные из всех строк с этим городом исходной таблицы, начиная со второй ячейки. Для реализации такого кода используются условия и циклы.
Такой код будет работать медленно, что будет заметно при обработке больших таблиц. Для ускорения можно использовать массив, в который скопировать информацию из исходной таблицы с отсортированными строками и вставлять данные на новый лист уже из него.

Андрей, решение вашей задачи я опубликую в отдельной статье, когда у меня будет свободное время. По сроку не сориентирую. Ссылку дам, когда будет готово.

Добрый день, Андрей и Евгений.
Андрей,
Решить вашу задачу можно не прибегая к программированию на VBA, хотя на данном ресурсе Евгения есть вся необходимая для решения задачи информация.
Для решения нужно прибегнуть к иснтрументу Power Query, который с 2016 входит в состав экселя, в для 2010 и 2013 можно бесплатно скачать и доустановить.
В Power Query при помощи запроса №1 необходимо выполнить отмену свертывания столбцов (для вашей задачи это различные адреса) и выполнить сортировку по городам.
Далее при помощи запроса №2 сформировать уникальные города (список уникальных можно сформировать и штатными средствами экселя).
И затем при помощи формул и использования главным образом функций ДВССЫЛ, ТРАНСП, ПОИСКПОЗ, СТРОКА и формулы массивов можно реализовать поставленную задачу.

Евгений,
в статье в примере вы указали
Workbooks(«Книга2.xlsm»).Sheets(«Лист2»).Cells(5, 3)

неплохо было бы отметить еще один способ
Workbooks(«Книга2.xlsm»).Sheets(«Лист2»).Cells(5, «C»)

Нужно создать код процедуры, позволяющей ввести данные в ячейки
таблицы В2:Е4, пользуясь обращением к ячейкам таблицы Cells(строка,
столбец) и диалоговым окном InputBox

Евгений, помогите пожалуйста. Есть код. Ячейки из одной таблицу ищут совпадение с ячейками из другой. При совпадении в первой таблице напротив ячейки ставится «1». Во второй таблице значения с которыми сравнивают упорядочены и смысла пробегать с первой строки нет, пытаюсь сделать чтобы Find искал уже после предыдущей найденной строки с помощью After, но не получается правильно записать переменную в качестве номера строки.

a = Timer
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False

Set Lst1 = Worksheets(«2»)
Set Lst = Worksheets(«1»)

i = 1
k = 1
Do While Lst.Cells(i, 1) «»
ll1 = Lst.Cells(i, 9)

Set nseek = Lst1.Range(«F:F»).Find(What:=ll1, After:=Range(«F» & k), LookIn:=xlValues, LookAt:=xlWhole)
If Not nseek Is Nothing Then

Lst.Cells(i, 10).Value = «1»
k = nseek.Row

End If

i = i + 1
Loop

Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
MsgBox Timer — a

Как правильно записать After:=Range(«F» & k)

День добрый, Евгений. Прошу подскажите с кодом для перехода на другой лист . Как это можно это сделать через макрос привязанный к кнопке . т.е. на листе список с названием всех листов и одна кнопка при нажатии переход на лист а имя листа берется из под активного курсора. Если указать имя конкретного листа понятно , то будет так

, а как чтобы имя листа бралось из под курсора ?