VBA paste special

Question

Я пытаюсь написать сценарий для копирования записей из одной ячейки листа в другую с шаблоном. У меня возникают проблемы с объединенными ячейками для вставки неизолированных ячеек. У меня есть следующий код, я знаю, что могу использовать специальные функции Paste, но могу ли я использовать более одного за раз? Будет ли вставить: = xlColumnWidth help?

Sheets("Sheet3").Select 
    Range("N6:O6").Select 
    Selection.Copy 
    Sheets("Reports").Select 
    Range("O4").Select 
    Selection.PasteSpecial Paste:=xlPasteValues 

Answer 1

Guess Я просто поставить это как ответ

Worksheets("Reports").Range("O4") = Worksheets("Sheet3").Range("N6").MergeArea.Cells(1, 1).Value 

Answer 2

Я согласен с Дэвидом об уходе Выбор но записи макросов производится следующее:

Sub Macro2() 
    Sheets("Sheet3").Select 
    Range("N6:O6").Select 
    Selection.Copy 
    Sheets("Reports").Select 
    Range("O4").Select 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 
End Sub 

Который, кажется, работает с N6: О6 объединяемых ..

Answer 3

Для тривиальное количество данных, подобных этому, не нужно делать что-то подобное, но хорошо знать, что select не нужно много в excel-vba, а также что е буфера обмена можно избежать:

Sub Macro2() 

Dim vArr As Variant 
vArr = Sheets("Reports").Range("N6:O6") 

Dim Destination As Range 
Set Destination = Sheets("Sheet3").Range("O4") 
Destination.Resize(UBound(vArr, 1), UBound(vArr, 2)).Value = vArr 

End Sub