Есть ли способ скопировать несколько выбранных пользователем ячеек в другой лист одновременно?

Question

Моя основная проблема - копирование определенного диапазона выбранных пользователем данных в другой лист.

Я пытался использовать selection.copy, но я думаю, что лучше избегать использования этой функции.

Естьесть способ, которым пользователь может выбрать одну ячейку;скопировать значение ячейки, включая значения следующих трех ячеек справа, и вставить ее в другой лист?

Answer 1

Чтобы скопировать / вставить все (значения, форматирование и т. Д.), Используйте:

ActiveCell.Resize(,3).Copy Destination:=Worksheets("myTargetWorksheetName").Range("A1")

Просто измените «myTargetWorksheetName» на фактическое имя листа назначения и «A1» на фактическую целевую ячейку листа назначения

Для копирования / вставки только значений:

Worksheets("myTargetWorksheetName").Range("A1:C1").Value = ActiveCell.Resize(,3).Value