Как выбрать несколько ячеек и copypaste на другой лист?

Question

Я хочу выбрать несколько ячеек и после выбора нескольких ячеек, я хочу скопировать и пропустить значения на другом листе.

Мой код заключается в следующем:.

Union (Range ("C4, C5, I4, I5, J7"), Range ("C4, C5, I4, I5, J7")) Выберите

Selection.Copy

код, выбирающий ячейки, однако, идущие к аргументу «Выбор. Копировать», он дает ошибку времени выполнения «1004» «Эта команда не может использоваться для нескольких выборов».

Может ли кто-нибудь помочь мне исправить это?

Answer 1

Я хотел бы сделать это один кусок за один раз:

Sub Disjoint() 
    Dim rng As Range, r As Range, addy As String 
    Set rng = Sheets("Sheet1").Range("A1,B3,C5,D7,E11") 
    For Each r In rng 
    addy = r.Address 
    r.Copy Sheets("Sheet2").Range(addy) 
    Next r 
End Sub 

Answer 2

Используйте этот код он приклеился к следующим доступным колонкам в листе 2 строки 1

Sub Button1_Click() 
    Dim rng As Range, c As Range 
    Set rng = Range("C4,C5,I4,I5,J7") 
    For Each c In rng.Cells 
     c.Copy Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1) 
    Next c 
End Sub