Я хочу скопировать выбранный диапазон из листа Книги 2, показанного на изображении ниже, в выбранные КРАСНЫЕ ячейки на другом листе слева от Книги 2.

Как я могу получить эти скопированные ячейки в Книге 2 в том же выбранном диапазоне на другом листе? Выдает ошибку:

Невозможно вставить в несколько вариантов.

У меня есть Kutools, если это необходимо.

1 ответ1

0

Этот макрос сделает это:

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, щелкните ее правой кнопкой мыши и выберите «Вставить модуль». Вставьте макрос в главное окно, затем нажмите зеленую кнопку воспроизведения вверху.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .