Выберите или скопируйте 3 несмежные ячейки

Question

Как я могу скопировать 3 несмежные ячейки, используя ActiveCell.Row?

Range("A" & ActiveCell.Row, "C" & ActiveCell.Row, "E" & ActiveCell.Row).Copy

Answer 1

Чтобы немного упростить вещи:

Range(Replace("A?,C?,E?", "?", ActiveCell.Row)).Copy

Answer 2

У вас есть , за пределами "".Вы должны положить их внутрь.Посмотреть это

Range("A" & ActiveCell.Row & ",C" & ActiveCell.Row & ",E" & ActiveCell.Row).Copy

Answer 3

Попробуйте это:

Union(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 3), Cells(ActiveCell.Row, 5)).Copy

Answer 4

Я думаю, что есть множество способов сделать это, вы можете прочитать это , это даст вам лучшее понимание.

Я бы сделал:

Sub test()

Set x = Application.Union(Range("A" & ActiveCell.Row), Range("C" & ActiveCell.Row), Range("E" & ActiveCell.Row))
x.Copy

End Sub