поиск по списку и запись данных в ячейку с помощью циклов

[Vadim]

Комментарий администратора

Название темы должно быть максимально информативным, таким, чтобы уже из названия темы другим пользователям была приблизительно понятна Ваша проблемап.п. 4.2. и 4.14. Правил форума

Вообщем, у меня была задача.
- Есть список номеров деталей А
- Есть кросс-лист, где для деталей А в соседней ячееке проставлен аналог B

Нужно для каждого номера А из Списка проставить в соответствие аналоги. Причем аналогов много, а ячейка одна, и все они должны в нее записаться. Изначально я пытался сделать это через Do Until IsEmty(ActiveCell)
Но все мои попытки не увенчались успехом. И в итоге я просто подсчитал количество строк и упростил код, сделав его не универсальным, а под конкретно мою задачу и использовал два for each. Один работает со списком, а другой с Аналогами.

Код: (vb)

Sub MySub()
 For Each Element In Range(Cells(1, 1), Cells(80, 1))
  x = Element
  For Each Cell In Range(Cells(1, 3), Cells(5922, 3))
   y = Cell
   If x = y Then
    Cell.Activate
    Element.Offset(0, 1) = Element.Offset(0, 1) & ", " & ActiveCell.Offset(0, 1)
   End If
  Next Cell
 Next Element
End Sub

Буду рад если напишите как этот небольшой скрипт можно доработать. Чтобы он стал более универсальным. Напомню это мой первый нормально работающий макрос. Раньше немного изучал PHP.

[sboy]

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

[Дмитрий Щербаков(The_Prist)]

Написал свой первый макрос

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

Название темы должно быть максимально информативным, таким, чтобы уже из названия темы другим пользователям была приблизительно понятна Ваша проблемап.п. 4.2. и 4.14. Правил форума

Предложите новое название - поменяем сами(у Вас уже не получится).
Глядишь пока будете название темы выдумывать и задача сформируется так, что понятна будет не только Вам. Пока даже прочитав описание неясно чего Вы хотите. И примера данных нет. В общем Вам сначала сюда: Зачем темам давать осмысленное название?

[Vadim]

"Доработка макроса: поиск по списку и запись данных в ячейку с помощью циклов" Такое название подойдет?

[Дмитрий Щербаков(The_Prist)]

Такое название подойдет?

Более чем! Спасибо, изменил.

Как вариант для усовершенствования своего кода, можете глянуть код из статьи: Как сцепить несколько значений в одну ячейку по критерию? СцепитьЕсли
Задача точно такая же решается.