Ошибка 1004, выберите метод объекта Диапазон

Question

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

Вот код.

Sub pastetrasp(Zone As String) 
    Dim asdf1 As Range 
    Dim n As Integer 

    If Zone = "CF" Then 
     Set asdf1 = Range("Q1:Q4") 
     Set asdf2 = Range("P1:P4") 
     Set asdf3 = Range("O1:O4") 
     n = 1 
    End If 

    Sheets("Data").Select 
    Sheets("Data").asdf1.Select ' ERROR 
    ActiveCell.Copy 
    Sheets("example").Select 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=True 
    ActiveCell.Offset(0, -n).Select 
end sub 

Answer 1

ActiveCell не может ссылаться на диапазон. И вам также не нужно использовать Select.

Используйте asdf1.Copy скопировать

И PasteSpecial, вам нужно поставить перед ним диапазоном, но вы выбираете лист перед этой линией.

Вместо этого, вы можете сделать что-то вроде

Sheets("example").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True