Вы можете сделать это с двумя циклами, как показано ниже:
dim counter x as long
dim finish as boolean
dim counter inner as long
x = 1
do until isempty(worksheets("a").cells(x,1).value)
finish = false
inner = 1
do until isempty(worksheets("b").cells(inner,1).value) or finish = true
if worksheets("a").cells(x,1).value = worksheets("b").cells(inner,1).value then
finish = true
end if
loop
if finish = true then
//copy data
end if
loop
Вы просматриваете таблицу со случайными компьютерами (мы называем этот внешний цикл), в этом цикле вы идете каждый раз через другую таблицу (внутренний цикл), где вы выполняете поиск с помощью своего ключа, и если вы найдете ключ, установите логическое значение на правда.
Выпрыгивайте из цикла, когда у вас нет больше строк или вы нашли цель.
После того, как вы проверите, нашли ли вы его и задали ли вы данные, которые вы получили во внутреннем цикле, для текущей строки во внешнем цикле, вам нужно сбросить счетчик для внутреннего цикла и логического значения и перейти к следующей строке в ваш внешний цикл.