Этот макрос сделает это:
Sub Macro1()
i = 0
num_items_to_copy = 3
Do While i < num_items_to_copy
Windows("Book2").Activate
Range("A1").Offset(i * 2, 0).Copy
Windows("FULL Catalogue.xlsx").Activate
Range("K3").Offset(i * 2, 0).Select
ActiveSheet.Paste
i = i + 1
Loop
End Sub
вам нужно изменить num_items_to_copy = 3, чтобы оно равнялось фактическому количеству копируемых элементов.
Кроме того, обновите Windows(«FULL Catalogue.xlsx»), чтобы она соответствовала фактическому названию вашей книги.
Чтобы запустить макрос, нажмите Alt-F11, чтобы открыть окно Visual Basic. Слева находится папка iceon с названием Modules, щелкните ее правой кнопкой мыши и выберите «Вставить модуль». Вставьте макрос в главное окно, затем нажмите зеленую кнопку воспроизведения вверху.