☰

Как написать макрос Excel для копирования выбранной строки данных между двумя листами?

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba macros
Как написать макрос Excel для копирования выбранной строки данных между двумя листами?

Я не очень опытен во всей области VBA, я понимаю, как работают макросы, но это просто вне моей досягаемости. В общем, как я и сказал в заголовке, мне нужно написать макрос, который будет копировать выбранную строку или ячейки с одного листа на другой.

Например, первый лист содержит таблицу с данными. Пользователь выбирает строку или нужные ячейки, запускает макрос с помощью сочетания клавиш, макрос копирует выбранные данные на Лист 2 и вставляет их в нужную строку (давайте сделаем ее строкой 22). Также, если в строке 22 (A:22) есть данные, вставьте данные в следующую строку (23).

Надеюсь, я достаточно ясно выразился.

Я буду признателен за любую подсказку или помощь.

решение1

В разделе Разработчик -> Visual Basic поместите в новый модуль следующее:

Sub CopySelection()
  Dim xlSel As Excel.Range
  Set xlSel = Excel.Application.Selection

  xlSel.Copy Excel.Application.Sheets("Sheet2").Range("A1")
End Sub

Затем в разделе Разработчик -> Макросы выберите подпрограмму, нажмите Параметры и назначьте клавишу.

Связанный контент