Excel VBA Object Обязательная ошибка

Question

Я искал этот код и не могу понять, почему я продолжаю получать требуемую ошибку. Я пытаюсь добавить новый лист, место, массив и диапазон в листе (это работает). Затем я хочу назвать все ячейки на листе именем переменной, которое будет использоваться позже. Может ли кто-нибудь понять, почему он не работает?

Set WS_Temp = Sheets.Add 
With WS_Temp 
    .Range(Cells(1, 1), Cells(1, LastColRA)) = Sheet1.Range("Dynamic_Range").Value 
    .Range(Cells(2, 1), Cells(counter + 1, LastColRA)) = Application.Transpose(vList) 
    '.Range(Cells(1, 1), Cells(counter + 1, LastColRA)) = Selected_Range 
    '.Range(Selection, Selection.SpecialCells(xlLastCell)).Select = Selected_Range 
End With 

Set Selected_Range = WS_Temp.Range(Selection, Selection.SpecialCells(xlLastCell)).Value ***ERRORS HERE 

Answer 1

Can you try taking off the .Value? – Matt Cremeens

Set ключевое слово используется для назначения объект ссылается. Используя его для назначения значения выдает ошибку, которую вы получаете, «Требуется объект».

И это именно то, что вы делаете здесь:

Set Selected_Range = WS_Temp.Range(Selection, Selection.SpecialCells(xlLastCell)).Value 

Вы пытаетесь присвоить Selected_Range объект значениеWS_Temp.Range(...), что вы не можете сделать юридически. Удалите .Value, и вы назначите Selected_Range a ссылка, указав на объект Range, который был возвращен этим Range, на ваш WS_Temp лист.